>perl -wMstrict -le
"my $i = 42;
 inc($i);
 print $i;
 sub inc { ++$_[0] }
"
43