c:\@Work\Perl\monks>perl -wMstrict -le
"sub printme();
 ;;
 my $x = 'a';
 printme();
 ;;
 $x = 'b';
 printme();
 ;;
 sub printme () {
   print qq{x: '$x'};
   }
"
x: 'a'
x: 'b'