#! / usr/bin/perl -w
use Text::Wrap qw(wrap);
#
#
use POSIX 'strftime';


$name = $ARGV[0];
$name1 = $ARGV[1];
#

# strip out all Carriage Returns
#
# Process the file by replacing each tilde (~) with a carriage return / line feed and
# save the file in the correct file format.
#
#
open (INFILE, "<$name");
open (OUTFILE, ">$name1");
$Text::Wrap::columns = 80;
while (my $row = <INFILE>) {
    print OUTFILE wrap('','',$row) ;
}
close (INFILE);
close (OUTFILE);