Select Code to Download

 my $fn = 'file.dat';
 
...
    print $fh $img
 }

  ...
  while( my $img = <$fh> ) {       # read one record
...
     print $ih $img
  }
  ...