#!/usr/bin/perl -w

use HTML::TokeParser;
use LWP::Simple;
use Encode;

sub getTitle {
    my $stream = HTML::TokeParser->new(@_);
    if(defined $stream->get_tag("title")) {
        my $title = $stream->get_trimmed_text;
        return encode_utf8($title);
    }
}

my $browser;
my $url = $ARGV[0];

BEGIN {
    use LWP::UserAgent;
    $browser = LWP::UserAgent->new;
    $browser->agent("Mozilla/5.0");
    $browser->timeout(15);
}

my $resp = $browser->get($url);

die "Error getting $url: ", $resp->status_line, "\n"
    unless $resp->is_success;

die "Not HTML, it's ", $resp->content_type, "\n"
    unless $resp->content_type eq 'text/html';

if(my $title = getTitle($resp->content_ref)) {
    print "Title: '$title'\n";
}