foreach my $PDL (split/\s+/,`ls *.pdl | tr '.' ' ' | gawk '{print $1}'`){
	print "$PDL\n";
if (( ! -f "$PDL.cxx") or ( -M "$PDL.pdl" < -M "$PDL.cxx" ))
	{
		print " Generating $PDL ........... \n";
		system("C:/Perl/noipgen.exe", "$PDL.pdl");
	}