output(\*FILE,'<a href="test.html">testing</a><BR>\n');

sub output {
    my ($fh,$msg) = @_;
    
    print $msg;
    print $fh $msg;
}