English name: $PROGRAM_NAME
#!/usr/bin/perl -w use English '-no-match-vars'; print 'I am ', $PROGRAM_NAME, ' (', $PROCESS_ID, ')'; #print 'I am ', $0, ' (', $$, ')';