#!/usr/bin/perl
#
# Grab That Cache
# by David Nicol
#
open FILELIST, "find ~/.netscape/cache -type f |";

	mkdir "pages$$", 0777 or die "Could not make directory to put the HTML pages in.\n";

	$Page = 'aa';

	while (<FILELIST>) {
		chomp;
		print "adding $_ to pages$$/$Page.html\n";
		open PAGE, ">> pages$$/$Page.html" or die $!;
			print PAGE "<img src=file:$_ height=40 width=40>\n";
			$. % 10 or print PAGE "<br>\n\n";
			$. % 100 or $Page++;
	}
close FILELIST;