Select Code to Download

use FileHandle;
...
my $fh_in = FileHandle->new();
$fh_in = *STDIN{IO};

while( <STDIN> ) {