如何在Perl中读取固定长度的记录？

use strict;
use warnings;

my $filename = 'data.txt';
my $record_length = 10;

open(my $fh, '<', $filename) or die "Can't open $filename: $!";

while (sysread($fh, my $record, $record_length)) {
    print "Record: $record\n";
}

close($fh);