sub get_response {
    my $url = $_[0];
   
    my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Win32)');
    $ua->cookie_jar(HTTP::Cookies->new); 
    my $request = HTTP::Request->new( GET => $url );

    my $response=$ua->request($request);
    while ($response->code eq "301" or $response->code eq "302") {
        $url=$response->header('Location');
        $request=new HTTP::Request("GET", $url);
        $response=$ua->request($request);
    }

    my $response_string = $response->as_string;

    return $response_string;
}