Select Code to Download

{
   open(my $fh, '>:raw', 'file') or die("open>: $!\n");
...
   local $/ = "\x0D\x0A";
   print length, "\n" while <$fh>;
}

5
7

5
3
4