#!/usr/bin/perl
open IN, "list";
while(<IN>)
	{
	if(/ipcs(....)/)
		{
		$_=$1;
		print "$_\n";
system"lynx -source http://www.cdc.gov/niosh/ipcs/ipcs$_.html > files/$_.html";
		}
	}