Help for this page

Select Code to Download

Select or download this

my $c = -5;
print "C is now $c\n";

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