Perl variables: $0 (name of program)

use warnings;
use strict;

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