perl -e 'print qq~package Foo; sub bar { print "baz\\n" } 1\n~' > Foo.pm; cat Foo.pm