0___name_of_program.pl

use warnings;
use strict;

print "\n";
print "  File and path of prog: $0\n";
print "  Compare with __FILE__: " . __FILE__ . "\n";
print "\n";