use LWP::UserAgent; my $UA_Obj = LWP::UserAgent->new; my $request = HTTP::Request->new( GET => 'your_URL_Here' ); my $response = $UA_Obj->request($request); if ( $response->is_success and $response->previous ) { print $request->url, ' redirected to ', $response->request->uri, "\n"; }