Select Code to Download

my $read = do {
  local $/ = \160; # set record size
...
  <$fh>; # scalar context, so the first record only
};
# now print $read or whatever