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

##</code><code>##

$ ./716452.pl
Too many arguments for main::mySub at ./716452.pl line 19, near ""hello world")"
Execution of ./716452.pl aborted due to compilation errors.