#!/usr/bin/perl

$file=shift;
open(IN,$file);
open(OUT,">$file"."new");
while (<IN>){
	s/\r\n/\n/;
	print OUT $_;
}
