foreach $file (@ARGV) {

    print "Processing $file\n";

    open DOIT, "|  tr -s '\012\015' '\012\012' < $file > fixm_temp" or die  "*** Can't: tr '\015' '\012' < $infile > $outfile\n";

    close DOIT;

    open DOIT, "| mv -f fixm_temp $file"

         or die "*** Can't: mv -f fixm_temp $file\n";

    close DOIT;
}