Select Code to Download

open FOO, "<filename" or die ...;
*STDIN = *FOO;

my $fileno = fileno( $foo );
open STDIN, ">&$fileno" or die "Could not open $fileno: $!";