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";
	}
}