Get title from url.

gistfile1.pl

#!/usr/bin/env perl
use common::sense;
use Furl::HTTP;
use HTML::TagParser;
 
$ARGV[0] =~ /(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/ or die 'invalid format';
my $url = $1;
 
my $furl = Furl::HTTP->new;
my ($minor_version, $status, $message, $headers, $content) = $furl->request(
    method => 'GET',
    url => $url,
);
 
die "$status: $message" unless substr( $status, 0, 1 ) eq 2;
 
my $parser = HTML::TagParser->new($content);
my $title = $parser->getElementsByTagName('title')->innerText();
say $title;