#! /usr/bin/perl

use strict;
use LWP::Simple;

my $basepath = "http://backno.mag2.com/reader/BackBody?id=";
my $mag2id = "000000082873000";
my @list = <DATA>;
foreach (reverse @list)
{
	chomp;
	s/(\/|\s|:)//g;
	my $save = "$_.html";
	print "\$save = $save\n";
	my $url = "$basepath$_$mag2id";
	print "\$url = $url\n";
	my $content = get($url);
	if ($content)
	{
		open FH, ">$save"
			or die "File open error: $!";
		print FH $content;
		close FH;
	}
}
exit;

__DATA__
2002/08/17 05:30
2002/08/14 07:20
2002/08/09 06:40
2002/08/04 19:30
2002/07/31 23:00
2002/07/31 05:50
2002/07/03 06:50
2002/06/16 12:50
2002/06/11 21:30
2002/06/01 19:30
2002/05/27 00:00
2002/05/20 20:30
2002/04/30 22:40
2002/04/25 18:00
2002/04/18 22:10
2002/04/08 00:00
2002/04/02 23:50
2002/03/26 23:50
2002/03/19 01:30
2002/03/11 22:10
2002/03/04 22:20
2002/02/25 11:50
2002/02/18 00:20
2002/02/11 12:50
2002/02/01 03:00
2002/01/28 00:00
2002/01/21 04:30
2002/01/14 03:40
2002/01/07 05:30
2001/12/31 01:00