my $q= new CGI;
@directory=$q->keywords();
opendir (DIR, chomp($directory[0]));