my $c = -5; print "C is now $c\n"; $c = 0 if ($c < 0); print "C is now $c\n";