$ua->requests_redirectable([]); #### $ua->requests_redirectable(['GET']); #### my $referral_uri = $response->header('Location'); { # Some servers erroneously return a relative URL for redirects, # so make it absolute if it not already is. local $URI::ABS_ALLOW_RELATIVE_SCHEME = 1; my $base = $response->base; $referral_uri = "" unless defined $referral_uri; $referral_uri = $HTTP::URI_CLASS->new($referral_uri, $base)->abs($base); } $referral->uri($referral_uri); #### base='http://server.com/ABC/afilename1?op=678' referral='../../ABC/XYZ/KLM/afilename2?aa=123' #### http://server.com/../ABC/XYZ/KLM/afilename2?aa=123 #### http://server.com/ABC/XYZ/KLM/afilename2?aa=123