#!/usr/bin/perl #Written by Joab Jackson, joabj.com #This selection collects file names from the directory print "Enter Directory to be listed (\".\" for current directory):"; chomp($directory = ); opendir( DIR, $directory); @files = readdir(DIR); closedir(DIR); #This section create a file to write the filenames to print "Enter new file name for this directory listing:"; chomp($FileName = ); die "This $Filename already exists. Please delete.\n" if -e $filename; open FILE, ">$FileName" or die $!; print FILE "\n"; print FILE "\n"; print FILE "<\/head>\n"; print FILE "\n"; print FILE "

\n"; print FILE "

$file<\/a><\/li>\n"; } } print FILE "<\/ul>\n"; print FILE "<\/body>\n"; print FILE "<\/html>\n"; close FILE;