my $sizeRead = $chunkSize;
while ($sizeRead == $chunkSize)
{
  $sizeRead = read $in_fh, $buffer, $size;
  die "Error reading: $!\n" unless defined $sizeRead;
  ...
}