use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; )");  # Lie ;-)
my $req = new HTTP::Request POST => 'https://wherever.com/register.cgi';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
my $res = $ua->request($req);
print $res->is_success ? $res->content : "Error: ".$res->as_string;