RosettaCodeData/Task/Program-name/Perl/program-name-2.pl

use FindBin;
print "Program name $FindBin::Script\n";