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

    slurp;
    get;
    __END__
    This is slurp
    This is get