sub postUrl{
my $passNum = @url_success_type;
my $errorNum = @url_faile_type;
my $count = @url_type;
print "$count,$errorNum,$passNum\n";
my $query = CGI->new();
my $agent = LWP::UserAgent->new();
my $url = URI->new('http://ibio.genv.com/temp_xu/Test_Mail/sendMail.php');
$url->query_form('url_error_list'=>@url_faile_type, 'url_list'=>@url_list, 'pro_num'=>$count, 'error_num'=>$errorNum, 'success_num'=>$passNum
);
my $response = $agent->get($url);
}