Select Code to Download

  my $jobfh = FileHandle->new;
  $jobfh->open("myshscript 2>&1 |");

  while(defined ($line = $jobfh->getline)) 
  { # do something }

  $status = $jobfh->close;
  print $status;