Select Code to Download

#!/usr/bin/perl

...
    sleep(1);
  }

my $cmd = "$^X foo.pl arg1" ; ## $^X is the path to perl(.exe) interpr
+eter.
open (CMDLOG,"| $cmd") ; close (CMDLOG) ;

open (CMDLOG,"| $cmd") ;
## Now you can continue your main (caller) script...

use IPC::Open3 ;
my $cmd = "$^X foo.pl arg1" ;
...
my @log = (<LOGREAD> , <LOGERROR>) ;
close(LOGREAD , LOGERROR, LOGWRITE) ;
print "@log\n" ;

open (CMDLOG1,"| $cmd1") ;
open (CMDLOG2,"| $cmd2") ;
open (CMDLOG3,"| $cmd3") ;