Mega Code Archive

 

Categories / Perl / System Functions

 

English name

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