#!/usr/bin/perl -w
use strict;

use HTML::Form;

my $html = "<form></form>";
if (my $form = HTML::Form->parse($html, "localhost")) {
    print "Found!\n";
} else {
    print "Error!\n"
};