Hi sylph001

Here is the sample code from one of my project, it prints the redirected URL,

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";
}
[download]

Update: More on this refer node Get redirected URL