Select Code to Download

sub whatever {
    #...
    my ($method) = ( caller(0) )[3];
    #...
}

sub whatever {
    #...
    my $method= "whatever";
    #...
}