All pastes #829300 Raw Edit

Untitled

public text v1 · immutable
#829300 ·published 2007-12-23 01:41 UTC
rendered paste body
#!/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");