read $fh, 5, 10
  or die;

##</code><code>##

my $bytes = 5;
my $count = read $fh, $bytes, 10;

if ($count == $bytes) {
  (do stuff)
}
else {
  die sprintf "Want %i bytes, got %s!", $bytes, $count // '<undef>';
}