BEGIN {
    my $code = << 'EOC';
    sub mySub() {
        print "args: @_\n";
    }
EOC
    
    eval $code;
}
...