#
# Ein Beispiel dafür, wie man die Standardausgabe
# in eine Datei umleiten kann.
#

my $file = "redirect_test.txt";

open (OUT, ">$file") or
    die "Can't open file '$file': $!\n";

*STDOUT = *OUT; #redirect STDOUT to PH

print "TEST\n";

close OUT;