#Download megatoky script

print "This will download every megatokyo\n\n";
print "What dir should they be written to?\n";
print "WARNING THIS PATH WILL BE DELETED THEN RE-MADE ";
$dir = <STDIN>;
chomp($dir);
print "How many have been made? (please make sure it is 4 digit number, eg 0003) ";
$made = <STDIN>;
chomp($made);

system("rm -rf $dir");
system("mkdir $dir");
system("cd $dir");

$count = "0001";
until($count == "$made") {
  $url = sprintf("http://www.megatokyo.com/strips/%04d.gif", $count);
  system("wget $url");
  $count++;
}

print "Downloaded all $made megatokyos to $dir\n";</textarea>