#!/usr/bin/perl --

use strict;
use warnings;

#use open ':locale';
use open ':encoding(UTF-8)';

die "\nUsage: $0 url\n" unless @ARGV;

main(@ARGV);

sub main {
    my ($url) = @_;
    use LWP::Simple 5.827 '$ua';
    $ua->agent("Mozilla/5.0");
    $ua->timeout(15);

    my $resp = $ua->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 = $resp->title ) {
        print "Title: '$title'\n";
    }
}