$req = HTTP::Request->new(GET => $qurl);
$req->header(Accept => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
             Accept_Language => "en-US,en;q=0.5",
             Connection => "keep-alive"
             );