Select Code to Download

if ($nread == 0) {
   ...
...
   blah
   $exp->hard_close();
}

    close(STDIN);
    open(STDIN,"<&". $slv->fileno())
...
    close(STDERR);
    open(STDERR,">&". $slv->fileno())
      or die "Couldn't reopen STDERR for writing, $!\n";