in reply to Current file name

print $0; See perlvar

In Section Seekers of Perl Wisdom