The module is broken:
zoffix@ZofMain:~$ perl -MWWW::YouTube::VideoURI -wle 'my $y =
WWW::YouTube::VideoURI->new; print $y->get_video_uri("http://
www.youtube.com/watch?v=7Tv-QOzXjoM&feature=channel");'
Missing base argument at /usr/local/share/perl/5.10.0/WWW/YouTube/
VideoURI.pm line 46
zoffix@ZofMain:~$
The "missing base argument" is due to the fact that in code:
my $target = URI->new_abs($res->header('Location'), $new_uri);
the $res->header('Location') part returns an empty list. Seems like
YouTube does not send out the Location header anymore.
Cheers.