MAIN:
{
    my $cgi = new CGI;
    print $cgi->header();
    
    my $html = qq|
        <form method="post" action="mailto:user\@host.com">
            <input type="text" name="blah">
    
            <input type="submit">
    
        </form>
    |;
    
    print $html;

}