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

$name = $ARGV[0];
$name1 = $ARGV[1];
#
#
open (INFILE, "<$name");
open (OUTFILE, ">$name1");
$Text::Wrap::columns = 80;
while (my $row = <INFILE>) {
    print OUTFILE wrap('','',$row) ;
}
close (INFILE);
close (OUTFILE);