#!/usr/bin/perl


foreach my $file (@ARGV)
{

open IN, "<".$file || die "open failure";

@c = <IN>;


close IN;


open OUT, ">".$file || die "write failure";

foreach(@c)
{


$_ =~ s/\r//sgi;

print OUT $_;


}

close OUT;

}