#!/usr/local/bin/perl

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