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