Help for this page
read $fh, 5, 10 or die;
my $bytes = 5; my $count = read $fh, $bytes, 10; ... else { die sprintf "Want %i bytes, got %s!", $bytes, $count // '<undef>'; }