#!/usr/local/bin/perl

# Convert from dos 2 unix.
# replace ^M with ^J

local($infile,$outfile);

if ($#ARGV != 1) {
  print "Usage: $0 [infile] [outfile] \n";
  exit;
}

($infile = $ARGV[0]) if (defined $ARGV[0]);
($outfile = $ARGV[1]) if (defined $ARGV[1]);


open(INFILE, "<$infile") || die "Can't open input file $infile";
open(OUTFILE, ">$outfile") || die "Can't open input file $outfile";

while ($data=<INFILE>) {
  $data =~ s/\r/\r\n/;
  print OUTFILE $data;
}

close(INFILE);
close(OUTFILE);

