Select Code to Download

   open ($testdataset, "datasetnew.txt") or die "Cannot open file";
   @testdataset =  <$testdataset>;
...
   @testdataset = grep /\S/, @testdataset;
  
   foreach $dataline (@testdataset) {

   open (my $testdataset, '<', "datasetnew.txt")
      or die "Cannot open input file: $!\n";

   while (my $dataline = <$testdataset>) {
      next if $dataline =~ /^\s*$/;