Select Code to Download

#!/usr/bin/perl -w

use strict;
...
open (NEWIN, "<&STDIN") or die "$!";
open (STDIN, "/dev/null");
print while (<NEWIN>);