#!/usr/bin/perl -w              						
print "Content-type: text/html\n\n";

$dirname = "\\\\host01\\ISO";
opendir ( DIR, $dirname ) || print "error: $!<br>";
while( ($filename = readdir(DIR))){
     print("$filename<br>");
}
closedir(DIR);