#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
use Data::Dumper;

my $url = 'http://youtube.com/watch?v=2cBVpTRoMjI';

my $ua = LWP::UserAgent->new();
my $result = $ua->head($url);
my $remote_headers = $result->headers;

print Dumper(\$remote_headers);
[download]