$c = 2;
print "Before: c=$c\n";
my $c = 1 unless $c;
print "After:  c=$c\n";