update: thelenm's solution is more elegant, but here's my (more or less) standard solution:

$_ = $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);
[download]

Cē