opendir(HOMEDIR, "\interest") ||
die ("Unable to open directory");
while ($filename = readdir(HOMEDIR)) {
	
@array = $filename;
print scrolling_list('name',[@array]);

            }
closedir(HOMEDIR);