...snip...
foreach $dir(@dirlist) {
   my $newdir=($dest."\/".$dir);
   if (-f $absdir."\/".$dir) {
   %info=(
	   driver =>"working",
     filename=> "<a href=\"../drivers$newdir\">$dir</a><BR>",
	   desc =>"working on this, too"
	);
}
   else {
	   %info=(
	   driver =>"working",
	   filename =>"<a href=\"/cgi/index.cgi?$newdir\">$dir</a><BR>",
	   desc =>"working on this, too"
				);
	}
	push(@tmplt_list, \%info);
}