perl -Mstrict -we 'sub f(\$){}; f(my $x)'