sub getWebContent{

    my $url = shift;
    my $key = shift;
    
    return unless $url;

    my $ua = LWP::UserAgent->new;
    $ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:12.0) Gecko/20120403211507 Firefox/12.0");
    my $req = HTTP::Request->new(GET => $url);
    $req->content_type('application/x-www-form-urlencoded');
    $ua->ssl_opts('verify_hostname' => 0);
    if($key){
        $req->authorization_basic($key, $key);
    }
    print "<pre>".$ua->request($req)->as_string."</pre>";

    my $res = $ua->request($req);
    
    if ($res->is_success) {
    return  $res->content;
    }
    else {
        print $res->status_line, "<br>$url\n<br>\n$key\n<br>\n \n";
        return;
    }
}