Help for this page

Select Code to Download


  1. or download this
    my ($ret) = ( (caller(1))[3] =~ /.*::(.*)$/ );