$_ = $ARGV[0];

$outFile = "$_.1";
open(OUTFILE, ">$outFile") or die "Can't open '$outFile' for writing: $!";
open(FILE, $_) or die "Can't open '$_': $!";
while (<FILE>) {
    chomp;
	print OUTFILE $_;
}
close(FILE);
close(OUTFILE);