>>839
use FileHandle;

sub main {
$fh = new FileHanle($gOutputHtml, 'w') or die "Can't open $gOutputHtml ($!)";
writeFile($fh);
$fh->close;
}

sub writeFile {
my $fh = shift;
$fh->print("test\n");
}