#! /usr/bin/perl -w
use strict;
use warnings;

use LWP::Simple;

my $url;
my $doc;
my $path = "http://www.perlmonks.org/?";
my $fn = "coolness.html";

open TO_FILE, ">> $fn"  or die ": $!";
for (my $i=0;$i<300;$i+=15) {
	$url = $path . "next=" . $i . ";node_id=1044"; 
	warn $url, "\n";
	$doc = get($url);
	print TO_FILE $doc;
}
close TO_FILE;