IO::Tee

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

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