2015-02-17T16:15:15 betterworld

Übrigens solltest du auch Fehler beim Öffnen der Dateien behandeln:

Code (perl): (dl )

1
2

open my $output_h, '>', $tempname
    or die "open: $tempname: $!\n";