my $codeAsText = do{ local( @ARGV, $/ ) = $0; <>; }; print $codeAsText;