#!/usr/bin/perl

use warnings;
use strict;

my $in=$ARGV[0];
my $out=$ARGV[1];

open IN, "$in" or die "Can't do it man. $!";
open OUT, ">>$out" or die "Man, I can't do that. $!";
foreach (<IN>) {
 s/\015/\012/g;
 print OUT $_;
 }
close IN;
close OUT;
exit;