use WWW::Mechanize; use encoding 'utf-8'; binmode STDOUT, ':utf8'; .... $mech->submit_form(form_name => 'form'); ##

##

	    $k =~ s/([\\\"])/\\$1/g;  # escape quotes and backslashes
		if (utf8::is_utf8($v)){
			utf8::encode($v);
		}
	    push(@parts,
		 qq(Content-Disposition: form-data; name="$k"$CRLF$CRLF$v));<##

use WWW::Mechanize;
binmode STDOUT, ':utf8';  # Removes 'wide character' warnings
$url = "http://localhost/test.cgi";
$mech = WWW::Mechanize->new();
$mech->get($url);
if ($mech->success) {
  if ($mech->form_name( 'frmLookup' )) {
		$mech->submit_form(form_name => 'frmLookup');
	  print "Success";
	}
}

####

print qq{Status: 200
Content-Type: text/html



  


  
    
  

};