Select Code to Download

open(FH,"<&STDIN") || die "Error with copying STDIN to FH : $!\n";

...
}
close(FH) || die "Error closing FH: $!\n";
exit;

while ($inbuf=<STDIN>)
{
...
    print $_;
}
exit;