# öffne datei oder stirb
open my $fh, '<', $/var/log/mail.log.0 or die $!;
# neue datei anlegen
open my $out, '>', $/var/log/ausgabe.log or die $!;