手元にWindowsが無いと面倒だ(;´Д`)
#!/usr/bin/perl

$base="http://page.freett.com/cowmon/jyutai/nogawa/cap-";
$ref="http://page.freett.com/cowmon/jyutai/nogawa/";
for($i=0;$i<=121;$i++){
	$tmp=sprintf("%04d",$i);
	system("wget $base$tmp.jpg --referer=$ref");
}
exit;