perl -e 'my $foo; local $foo'