#!/usr/local/bin/perl
print "HTTP/1.0 200 OK\n";
print "Content-type: text/plain\n";
print "\n";
opendir (HOMEDIR ,"/user/www/data/test") ||
           die (" Impossibile aprire la directory ");
@files = readdir(HOMEDIR);
closedir(HOMEDIR);
foreach $file (sort @files) {
         print ("$file\n");
 }