sub slurp;
    sub get;

    sub AUTOLOAD {
        my ($func) = $main::AUTOLOAD =~ /.*::(.*)/;
        if ($func eq "slurp" || $func eq "get") {
            print("This is $func\n");
        }
    }

    slurp;
    get;
    __END__
    This is slurp
    This is get