#!/usr/bin/perl -w
use strict;
use LWP::Simple ('getstore');

my @d    = localtime;
my $file = sprintf("%4i%02i%02i", $d[5]+1900, ++$d[4], $d[3]);
for ('best', 'worst'){
		my $url  = "http://perlmonks.org/index.pl?node=$_+nodes&displaytype=raw";
		my $html = getstore($url, 'bestworst/' . $file . "$_.html") or warn "Cannot get $url: $!\n";	
}
exit 0;