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