Select Code to Download

     while ( ! eof($fh) ) {
    defined( $_ = <$fh> ) or die Fudge("readline \$fh");
    ...
    }

sub Fudge {
    my $pipe = $?;
...
                q/ /;
    return $msg;
}