use strict;

my $x;

sub foo {
   $x = 'foo';   # Ok
}

foo();
print($x);  # foo

##</code><code>##

use strict;

sub foo {
   $x = 'foo';   # Refers to package var $main::x.
                 # It's also a compilation error.
}

my $x;
foo();
print($x);  # foo

##</code><code>##

$basename = 'not' . $basename;