opendir(DIR,".");
@d=readdir(DIR);
closedir(DIR);
foreach $j (@d)
{
	$_=$j;
	$template=/^.*\.[^.]+/ if(/$count/);
}