my $page = $mech->content;
if ($page =~ /Please enter/) {
#print $mech->content;
my $captchaimage = $mech->find_image( url_regex => qr/site.com\/captcha/i );
$captchaimage = $captchaimage->url;
print "Content-type: text/html\n\n";
print "Enter the letters to continue!\n" .
      "<form>\n".
      "<img src='" . $captchaimage . "'>\n".
      '</br>' .
      '<input type=text name=\'CAPTCHA\'>' .
      '</br>' .
      '<input type=submit value=\'Continue...\'>' .
      "\n</form>";
if (param()) {
my $captcha = param('CAPTCHA');
chomp($captcha);
$mech->submit_form(
	form_number => 1,
	fields => { 'CAPTCHA' => $captcha }
	);

$page = $mech->content;
if ($page =~ /Thank you/) { print "Success!\n"; }
else { print "Error!\n" }
}
}
else { print "Error!\n"; }