#!/usr/bin/perl -l

$c='main';

{
        local $c='sub';
        print $c;
        print $main::c;
}

print $c;

__END__