#!/usr/bin/perl

use strict;
use WWW::Mechanize;
my($outfile,$url,$username,$password,$mech,$form,@forms,$input,$setinput);
$outfile = "dyndns.htm";
$url = "http://www.dyndns.com";
$username = "voity";
$password = "xxx";
$mech = WWW::Mechanize->new();
$mech->get($url);
$form = $mech->current_form();
print "\n forms: $form \n";
@forms = $mech->forms();
foreach my $frm (@forms) {
        $input = $frm->find_input("password", "text");
        if ($input) {
        print "... [-FOUND-] ...";
        } else {
        print "---SORRY---";
        }
}