<% opendir ( DIR, "." ); @files = readdir ( DIR ); @files = sort(@files); closedir ( DIR ); print "Listing of RedHat 7.1 source directory: /drivers/pci"; print "

\n"; for $i (@files ) { if ($i !~ /index.asp/) {print "

$i\n";} } print "

\n"; %>