#! /usr/bin/perl
# cogito ,ergo sum!

use LWP::Simple;

$i = 0; # change to first rfc you need to download @first

while (1) {
	# http://www.ietf.org/rfc/rfc2669.txt?number=2669
	# system("wget http://www.ietf.org/rfc/rfc$i.txt -O rfc$i.txt");
		
	my $url		= "http://www.ietf.org/rfc/rfc$i.txt";
	my $file	= "/tmp/rfc$i.txt";
 
    getstore( $url, $file ); 

	$i++;
	if ( $i >= "3275" ) { exit; } # rfc3275.txt is latest rfc available

}; # while (1) {