use LWP::Simple;
use strict;
use warnings;

my ($movie, $content, $title);

$movie = 'eRw69htzQnU';
$content = get("http://www.youtube.com/watch?v=eRw69htzQnU");

die "Couldn't load movie." if !defined $content;

if ($content =~ m/<title>(.*?)<\/title>/s) {
    $title = $1;
    $title =~ s/^\s+//;
    $title =~ s/\s+- YouTube\s+$//;
    print $title;
}