open (OUT, ">", "output.txt") or die "Error: couldn't open output.txt: $!\n";
my $oldStdOut = select(OUT);
# print geht nun in die Datei OUT => output.txt
# .....
select($oldStdOut);
# print geht nun wieder nach STDOUT
print $rueckgabewert;