Use flvcd to automatically download youku page in a batch.

download_youku

#!/usr/bin/perl
# download flv pieces and put them at current dir with name as 01,02,03,etc.
# So less than 100 pieces are expected
use strict;
if(@ARGV != 1)
{
  print "download_youku <URL>\n";
  exit 1;
}

my ($original_youku) = @ARGV;
my $flvcdpage = `curl "http://www.flvcd.com/parse.php?kw=$original_youku&flag=one&format=super 1 >>/dev/null 2>>/dev/null"`;

chomp($flvcdpage);
my @urls = ($flvcdpage =~ m/<BR><a href=\"(.*?)\" target=\"_blank\" onclick=\"_alert/g);

my $name=1;
foreach(@urls)
{
  system(sprintf("wget --user-agent='chrome' $_ -O %02d.flv",$name));
  #(printf("wget --user-agent='chrome' $_ -O %02d.flv\n",$name));
  $name++;
}