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

##</code><code>##

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

##</code><code>##

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