Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
select($oldfh);            # select the original filehandle,
                           # just for neatness
close (FILE);