#!/usr/bin/perl
#Script that lists the contents of a directory out and puts them into hyperlinks
#Digital Ebola <digi@legions.org>



use CGI;
$query = new CGI;
print $query->header;
print $query->start_html(-title=>'Your title here', -BGCOLOR=>'#c5c5c5');
print "<H1>Top Header Thingy</H1>\n";
opendir (UNF, "/home/user/yourdirectory/") ; 
while ($name = readdir(UNF)) {
print " <A HREF=http://www.yourlink.com/$name>$name</a><br>\n "; }
closedir (UNF);