echo 'sub foo { print for @ARGV } foo(); 1;' > foo.pl
perl -le 'require "foo.pl"; foo()' bar baz