in reply to Current file name

use FindBin qw($Script);
print $Script, "\n";

[download]
or 
use File::Basename;
print basename(__FILE__), "\n";

[download]

In Section Seekers of Perl Wisdom