open(TEST, ">>test.html") || die;

    my $outhandle = undef;
    $outhandle = *TEST;

    print $outhandle "test\n";
    close($outhandle);