my $request = HTTP::Request->new(GET => 'http://imdb.com/find?nm=on;mx=20;q=eliza%20dushku');

my $ua = LWP::UserAgent->new;
my $response = $ua->simple_request($request);

if ($response->is_redirect) {
  # store that URL
} else {
  # do the more complicated stuff
}