gistfile1.pl

#!/usr/bin/env perl
use 5.014;

use URI::Title;
say URI::Title::title('https://twitter.com/al3x/status/1039647490');

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('https://twitter.com/al3x/status/1039647490');
say $mech->title;

use LWP::Simple;
say ( get('https://twitter.com/al3x/status/1039647490')
          =~ m{<TITLE>(.*?)</TITLE>}gism
    );