use strict;
use feature ':5.10';
use LWP::UserAgent;
my $uri = 'https://t.co/O4qjsxuCsV';

my $browser = new LWP::UserAgent();
$browser->max_redirect(5);
$browser->agent("Mozilla/5.0 (Windows NT 6.1)");

my $response = $browser->get($uri);
my $request = $response->request();
my @redirects = $response->redirects();

foreach my $res (@redirects) {
   print $res->request->uri
}