use strict;
use warnings;
use Data::Dumper;

my $file = $ARGV[0];
my $new_file = $file . '.new';
open (my $fh, "<", $file) or die $!;
open (my $new_fh, ">", $new_file) or die $!;

while (my $line = <$fh>){
    print $new_fh "$line";
}

close $fh;
close $new_fh;