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

##</code><code>##

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