Select Code to Download

#!/usr/bin/perl -w

...
       exec '/usr/sites/test/vcgi/server.cgi';
   }
}

#!/usr/bin/perl -w

...
open(PID, "> pid") || die "Can't open PID file: $!";
print PID $$ ;
close PID;