my $fname = shift;if (-B $fname){ print "$fname is binary - not changing\n"; exit(0);}open(IN, "<$fname") || die " '$fname' ($!)";my @text = map {s/\r\n/\n/; $_;} <IN>;close(IN);open(OUT, ">$fname") || die " '$fname' ($!)";print OUT @text;close(OUT);