A basic script to pull down xkcd comics and create a TSV index of them.

xkcdpull.pl

#!/usr/local/bin/perl
#use strict;
#use warnings;
use LWP::Simple;

my $baseurl  = 'http://www.xkcd.com/';
my $comicnum = 1;
open (TSV, '>>index.csv');
while($pagecontent = get("$baseurl$comicnum/")) {
	$comicnum++;
	if($pagecontent =~ /<br\/>[\r\n]+<br\/>[\r\n]+<img src\="([^"]+)" title\="([^"]+)" alt\="([^"]+)" \/>/) {
		$imgurl = $1;
		$imgtitle = $2;
		$imgalt = $3;
		if($imgurl =~ /\/([^\/]*)$/) {
			$filename = $1;
		}
		print "Fetching $imgurl to $filename...\n";
		getstore($imgurl, $filename);
		print TSV "$filename\t$imgtitle\t$imgalt\n";
	}
}
close (TSV);