Hi all,

In perl we can get the name of the current package and current line number Using the predefined variables like _PACKAGE and __LINE .

Like this I want to get the name of the current subroutine.

Example

use strict;
use warnings;

print __PACKAGE__;
sub test()
{
    print __LINE__;
}
&test();

In the above code I want to get the name of the subroutine inside the function 'test'.

Thanks in advance.