#!/usr/bin/perl -w

use strict;

my @array = (3000..22000);

for my $scalar(@array) {
	my $id = sprintf("%05d", $scalar);
	system("wget --no-cookies --header \"Cookie: JSESSIONID=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\" http://www.publiclibrary.org/mybookshelf.jsp?id=$id");
	sleep 1;
}