Select Code to Download

#!/usr/bin/perl
use strict;
...
my $VERSION = "1.0";

print STDERR "This is $0 version $VERSION located in $FindBin::Bin run
+ning as process $$\n";

ian@laptop2:~$ ./test.pl
This is ./test.pl version 1.0 located in /home/ian running as process 
+6119
...
This is ./test.pl version 1.0 located in /home/ian running as process 
+6120
ian@laptop2:~$ ./test.pl
This is ./test.pl version 1.0 located in /home/ian running as process 
+6121