use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->proxy('http',"http://".$proxy);
$ua->timeout(5);
$req = new HTTP::Request POST => 'http://any.com/cgi-bin/any.pl';
$req->content('name=value');
$res = $ua->request($req);

$err_msg=$res->error_as_HTML();
if($err_msg =~ m/500 read timeout/)
{
   #set longer timeout and retry submition or jump to next proxy
}
else
{...