System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. English name
#!/usr/bin/perl -w
use English '-no-match-vars';
print 'I am ', $PROGRAM_NAME, ' (', $PROCESS_ID, ')';
#print 'I am ', $0, ' (', $$, ')';