#!/usr/bin/perl
 use strict;
 use warnings;
 #Pragmas für guten Stil einbinden
 
 open(STDOUTFAKE, ">&STDOUT");
 open(STDOUT, ">stdout.txt") || die "Kann stdout.txt nicht öffnen!";
 #STDOUT nach stdout.txt leiten und STDOUTFAKE an die Konsole
 
 print "STDOUT ist nun nicht mehr die Konsole...\n";
 print STDOUTFAKE "Das kommt nun auf die Konsole...\n";
 
 #STDOUT wieder herstellen
 open(STDOUT, ">&STDOUTFAKE");
 print "Nun ist STDOUT wieder auf der Konsole...\n";