Select Code to Download

              open(FILE,'>' . $stdin_file);
              binmode(FILE);
...
              close(FILE);
              close(STDIN);
              open(STDIN, '<',$stdin_file);

              #open(FILE,'>' . $stdin_file);
              #binmode(FILE);
...
              #close(FILE);
              close(STDIN);
              open(STDIN, '<',\$script_input);

Host not found: =head1 NAME
Host not found: PerlIO - On demand loader for PerlIO layers and root o
+f PerlIO::* name space
...
Host not found: L, L, L, L,
Host not found: L
Host not found: =cut