#! perl -w
# Convert a dos format file to Unix removing ^M Char from file

my $FileOpen = $ARGV[ 0 ];
my $FileTemp = "$FileOpen.Temp9687";

open OPEN, '<:raw', $FileOpen or die "\nCan not open file $FileOpen $!\n";
open CONV, '>:raw', $FileTemp or die "\nCan not open file $FileTemp $!\n";

local ( $/, $\ ) = ( "\r\n", "\n" );

print CONV while <OPEN>;

close OPEN;
close CONV;