#!/usr/bin/perl $original = $ARGV[0]; $temp = "DeleteMe-$$"; if ($original eq "") { print "Usage: fixcr filename\n"; exit(4); } open(IN,"<$original") or die "Can't open input file: $original\n"; open(OUT,">$temp") or die "Can't open temporary output file: $temp\n"; while () { print OUT $_; } close(IN); close(OUT); rename($temp,$original);