#!/usr/bin/perl -w

use English '-no-match-vars';

print 'I am ', $PROGRAM_NAME, ' (', $PROCESS_ID, ')';
#print 'I am ', $0, ' (', $$, ')';