Ich hab folgendes vor.
Alles was nach STDOUT geht, soll sowohl in eine Datei als auch wirklich nach STDOUT umgeleitet werden.
1. Idee: anstatt print direkt aufzurufen, Umweg über eine Funktion sub Output gehen: ungern, weil ich viele print aufrufe habe und dann viel ändern müsste
2. Idee: die Funktion print überschreiben und dann in der neuen print funktion die daten schreiben: gern, weiß aber nicht wie das geht, oder geht das einfach?

3. idee: mit IO::Tee multiplexen und dann irgendwie STDOUT mit diesem handle ersetzen.
keine ahnung ob das geht ...

IO::Tee

edit: kabel war schneller.
also IO::Tee benutzen und dann select $tee;
oder *{STDOUT} = $tee;\n\n

<!--EDIT|pq|1110377667-->