Select Code to Download

binmode(STDOUT);
for my $file ( @ARGV ) {
    open(FILE,"<$file") or die "Can't read $file: $!\n";
...
        print;
    }
}

binmode(STDIN);
my $file;
while(  defined( $file= <STDIN> )  ) {
...
        print FILE $rec;
    }
}