Select Code to Download

use IO::File;
my @data;
if (-e $file) { print "\nopen $file\n"; }
...
@data = <$fh>;
$fh->close;
}