#!/usr/bin/perl
#system "lynx -source http://www.techspray.com/index.htm > source.html";
open IN, "source.html";
while(<IN>){/(\d\d\d\d.htm)/ && print "$1\n";
$file=$1;
system "lynx -source http://www.techspray.com/$file > files/$file";
}