#!/usr/bin/perl -w
# unter DOS wird "\n" automatisch zu "\d\n" ergaenzt !!!
#
# 020312

my $infile = $ARGV[0];
my $outfile = "${infile}.\$\$\$";

open ( IN, "< $infile" ) || die "cannot open IN: $infile\n" ;
open ( OUT, "> $outfile") || die "cannot open OUT: $outfile\n" ;
binmode IN;
binmode OUT;
while (<IN>) {
   chomp $_;
   s/\r//g;
   $_ .= "\r\n";
   print OUT;
}
close;

#   $_ = $_ . "\x0d\x0a";
#   s/\r//g;
