open(OUTPUT,">&STDOUT") or die "couldn't dup stdout: $!";

##</code><code>##

#!/usr/bin/perl

open(STDOUT,">/tmp/tempfile.html") or die "open: $!";

foreach my $i (1..10)
{
  print $i,"\n";
}