$ua = LWP::UserAgent->new;
    $ua->agent('Windows IE 6');
    $ua->timeout(2000);       

my $req = HTTP::Request->new( GET => $web_address );
                $req->header( Pragma          => "no-cache" );
                $req->header( 'Cache-Control' => "no-cache" );

my $res = $ua->request($req);
if ( $res->is_success ) {
                    my $doc = $res->content;
}