#!/usr/bin/perl
use warnings;
use strict;
#open file for output
open (OUTFILE, ">>dircontents.html");
#declare $dir variable and set our directory
my $dir = "/Users/ctp/PERL_work";
# create dir handle read all entries from directory
opendir (DIRHANDLE, $dir) or die "can't open $dir: $!";
#skip "." and ".." directories
my @list=grep !/^\.\.?\z/, readdir DIRHANDLE;
#print HTML header to our file
print (OUTFILE "\n\n\n");
# sort the list on directory basis and close dir handle
foreach my $file (sort {-d "$dir/$b" <=> -d "$dir/$a"} @list)
{
print (OUTFILE "$file
\n") if -d "$dir/$file";
print (OUTFILE "$file
\n") if -T "$dir/$file";
}
closedir (DIRHANDLE);
#print HTML footer to file and close filehandle
print (OUTFILE "\n\n");
close (OUTFILE);