Select Code to Download

my $rec_format = 'a4a5a1';
my $rec_size   = 10;
...

read($fh_in, my $rec = '', $rec_size);
@fields = unpack($rec_format, $rec);