Разные Location для одной веб-страницы

#!/usr/bin/env perl
  
use strict;
use warnings;
use LWP::UserAgent;

my $url = "http://opensource.ru";
my $ua = LWP::UserAgent->new();
$ua->max_redirect(0);
my $resp = $ua->get($url);
print $resp->status_line, ', Locaion: ', $resp->header('Location')//"undef", "\n";