#!/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";
}