Select Code to Download

open( my $in, '<', 'path-to-file-name' ) or  die "Can't open path-to-f
+ile-name, $!";

my $datafile;
open (OUT, ">", $datafile ) or die "Can't open $datafile for write, $!
+";