c:\@Work\Perl\monks>perl -wMstrict -le
"func();
 ;;
 my $string = 'hiya';
 ;;
 sub func { print $string; }
"
Use of uninitialized value in print at -e line 1.

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = 'hiya';
 ;;
 func();
 ;;
 sub func { print $string; }
"
hiya