The third solution is a good case for goto &sub:

    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
[download]

This way if you carp() or croak() within common() you get better error message plus it's quicker.