if ($com eq "Submit Search") {
	opendir (TEMP, 'po');
	@files = readdir(TEMP);
	   foreach $file (@files) {
	   	open(FILE,"po/$file") || die "can't open ";
 		$filein = <FILE>;
		close (FILE);
#		$filein =~ s/,/ /g;
			if (-d $file) {}
 	     		elsif ($search =~  /$filein/i) {
	     			print "<a href=\"index.cgi?file=$file\">$file</a><br><br>";
			}
			else {print "<br>File not Found<br>"; }
	}

}



##</code><code>##

D04101,4/10/01,4,30,01,James Bernard,PO Box 4623,Chicago,IL,60680-4623,773-379-9873,,,Self-Inking Stamp Red