c:\@Work\Perl>perl -wMstrict -le
"sub S { print qq{S got $_[0]}; }
 ;;
 my $v = 0;
 print qq{\$v starts as $v};
 ;;
 S($v = 33);
 print qq{\$v now $v};
"
$v starts as 0
S got 33
$v now 33