Select Code to Download

sub guess_newline {
  my $file = shift;
...
  close $F;
  return $sep;
}

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