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

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

            }
closedir(HOMEDIR); 

##</code><code>##

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

            }
closedir(HOMEDIR);