if ($infile eq $outfile) { die "Same filename given for both input and output!"; }