my $request  = HTTP::Request->new(GET => $url);  
$request->header('Pragma'       => 'no-cache',   
                 'Cache-Control'=> 'no-cache',   
                  'max-age'     => '0');