$request = HTTP::Request->new(GET => $url); my $user_agent = LWP::UserAgent->new; my $response = $user_agent->request($request); if ( $response->is_success and $response->previous ) { ($scheme, $auth, $path, $query, $frag) = uri_split($response->request->uri); }