Select Code to Download

while (!eof(DATFILE))

sub _read {
   my ($fh, $bytes_to_read) = @_;
...
      ...
   }
}

{
   open(my $fh, '<:raw', $datfilename) or die $!;
...
      ...
   }
}