#!/usr/bin/perl -w 
use strict;

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

##</code><code>##

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

##</code><code>##

our $c = 2;

##</code><code>##

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

##</code><code>##

my $c = 1 unless $c;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl -w
use strict;

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

##</code><code>##

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