Here is a simplified script which prints the first redirect of a URL (because in the absense of any statement to the contrary this is what I think you are asking for).
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $src = 'http://google.com/';
my $res = $ua->get($src);
my ($redirect) = $res->redirects;
if (defined $redirect) {
print "$src redirects to " . $redirect->header('Location') . "\n";
} else {
print "$src has no redirect. It returned: " . $res->status_line .
+"\n";
}
I've used Google as the source because it works whereas your provided source has issues (which you could take up with them). I think that this is pretty clear and shows how the various methods may be used to obtain information of relevance to the programmer. Do read the documentation of the modules you are using.
