BEGIN {
        for my $name (qw {slurp get}) {
            eval<<"TILL_HERE";
    sub $name {
        print("This is $name\n");
    }
    TILL_HERE
        }
    }
    slurp;
    get;
    __END__
    This is slurp
    This is get