while (my $bytesread = read($fh, $buffer, 1024)) {
  $totalbytes += $bytesread;
  print $buffer;
}