my $bytesRead = read($inpFH, my $inpBuffer, $bytesToRead);

die qq{Bad read: read $bytesRead, expected $bytesToRead\n}
   unless $bytesRead == $bytesToRead;

print $inpBuffer;