{
   local $/ = guess_newline($filename) || die "Can't guess sep for $filename";
   open my $IN, '<', $filename or die "Can't read $filename: $!";
   while (<$IN>) { ... }
}