#!/usr/bin/perl
use WWW::Mechanize;
$_ = shift @ARGV;
($y, $i) = m[(http://www\.youtube\.com)/watch\?v=(.+)];
$m = 'WWW::Mechanize'->new;
($t = $m->get("$y/v/$i")->request->uri) =~ s/.*&t=(.+)/$1/;
$m->get("$y/get_video?video_id=$i&t=$t", ':content_file', "$i.flv");