#!C:/PROGRA~1/PERL/BIN/PERL.EXE -w
use strict;

my $fin=$ARGV[0];
my $fout=$ARGV[1];

unless (defined($fin) and defined($fout) )
{
    die("USE: perl -w prog.pl  in_file_name  _out_file_name\n\n");
}

(-f $fin) or die("File $fin does not exist!\n");
(-e $fin) and warn("File $fout exists. It will be overwritten!\n");

print "PROCESSING: $fin => $fout";



open(FIN,  "<".$fin) or   die ("Error! cannot open $fin for reading!\n");
open(FOUT, ">".$fout) or die ("Error! cannot open $fout for writing!\n");

my $line;
while ($line=<FIN>)
{
    if ($line ne "\n")
    {
        print FOUT "$line";
        # if you do not chomp you do not need to add \n
    }
}

close(FIN);
close(FOUT);