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