#!/usr/bin/perl

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

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