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