Select Code to Download

for (;;) {
   my $read = sysread($fh, my $buf, 64*1024);
...
   last if !$read;
   print $buf;
}