opendir(HOMEDIR, "\interest") ||
die ("Unable to open directory");
while ($filename = readdir(HOMEDIR)) {
	

print scrolling_list('name',[$filename]);

            }
closedir(HOMEDIR);