Puis-je envoyer STDOUT et STDERR à un fichier journal et également à l'écran dans Win32 Perl?

J'ai cherché sur Internet et trouvé quelques bonnes solutions pour le coup STDOUT à 2 endroits différents. Comme pour un fichier de log et aussi à l'écran en même temps. Voici un exemple:

use IO::Tee;
my $log_filename = "log.txt";
my $log_filehandle;
open( $log_filehandle, '>>', $log_filename )
  or die("Can't open $log_filename for append: $!");
my $tee = IO::Tee->new( $log_filehandle, \*STDOUT );
select $tee;

Mais cette solution laisse STDERR aller seul à l'écran et je veux STDERR aller à la fois l'écran et également sur le même fichier journal que STDOUT est connecté à. Est-il même possible?

Ma tâche est d'obtenir mon processus de construction connecté, mais je veux aussi voir sur mon IDE de l'écran comme d'habitude. Et la journalisation des messages d'erreur est tout aussi important que l'enregistrement de l'heureux messages. Et d'obtenir les erreurs enregistrées dans un fichier journal distinct n'est pas une bonne solution.

source d'informationauteur Kurt W. Leucht