Select Code to Download

open my $fh, q{>}, $datafile 
  or die qq{cant open $datafile to write: $!\n};
...
}
#close $datafile;
close $fh;