#!/usr/bin/perl
########################################################################
# Print the name of the program
########################################################################

print ('The name of the program using $0: ', $0, "\n");
print ('The name of the program using $PROGRAM_NAME: ', $PROGRAM_NAME, "\n");