sub common {
        my ($name, @args) = @_;
        print("This is $name\n");
    }
    sub slurp {unshift(@_,"slurp"); goto &common}
    sub get   {unshift(@_,"get"); goto &common}

    slurp;
    get;
    __END__
    This is slurp
    This is get