sub call_httpd_exec{
use LWP::UserAgent;
use HTTP::Cookies;
  my $user_agent = LWP::UserAgent->new;
      ###cookie handling
    $user_agent->cookie_jar(HTTP::Cookies->new());
    $cookie_list = $hash->{cookies};
    my $path;
    my $cookie;
    my $cookie_url_obj = URI->new($hash->{url});
    foreach $cookie (split(/;/,$cookie_list)) {
            $path="";
            my ($key,$value);
            if ($cookie =~ /=/){
                $key = $`;
                $value = $';
            }
            $user_agent->cookie_jar->set_cookie(0,$key,$value,"/$path",$cookie_url_obj->host);
     }   
	 $reqObj = new HTTP::Request($method,$urlObj,$hdrObj,$cgi_param);
	 $resObj = $user_agent->request($reqObj);
	 my $cookies_new =  $user_agent->cookie_jar->as_string;
}