RosettaCodeData/Task/Program-name/Perl/program-name-2.pl
2015-02-20 00:35:01 -05:00

2 lines
54 B
Perl

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