sub post_form {
    #get info
    my ($name, $url, $label_ref) = @_;


    #output the form we're trying
    print "Now pegging:\t$name\n";


    #do our posting
    my $result = $user_agent->request(POST "$url", $label_ref);


    #output our success
    if ($result->is_success()) {
        my $out = $result->as_string();
        print OUT "$out";
    }
    else {
        print "\t\t$name didn't work.\n";
    }
}
[download]