#!/usr//bin/perl

if (!@ARGV) {
    print "A file name must be specified on the command line\n";
} else {
    `mv $ARGV[0] ${ARGV[0]}.old`;
    open (OUT, ">$ARGV[0]");
    open IN, "${ARGV[0]}.old";
    while (<IN>) {
	tr/\015//d;
	print OUT;
    }
}
	
