Select Code to Download

#!/usr/bin/perl -w 
use strict;
...
print "Before: c=$c\n";
my $c = 1 unless $c;
print "After:  c=$c\n";

"my" variable $c masks earlier declaration in same scope at 492281.pl 
+line 6.

our $c = 2;

print "Before: c=$c\n";

my $c = 1 unless $c;

print "After:  c=$c\n";

Use of uninitialized value in concatenation (.) or string at 492281.pl
+ line 7.

#!/usr/bin/perl -w
use strict;
...
print "Before: c=$c\n";
my $d = 1 unless $c;
print "After:  d=$d\n";

Before: c=2
Use of uninitialized value in concatenation (.) or string at 492281.pl
+ line 7.
After:  d=