Select Code to Download

sub RunCommand
{
...
        CORE::exit(0);
    }
}

&RunCommand("/home/dbooth/rdf-pipeline/trunk/pid.perl");

#! /usr/bin/perl -w

...
print $fh "pid: $$ $t\n";
close $fh or die;
exit 0;