#!/usr/bin/perl
use warnings;
use strict;
open (OUTFILE, ">>midterm.html");
my $dir = "/Users/ctp/PERL_work";
my @dirs;
my @files;
# read all entries from dir and skip '.' and '..' directories
opendir (DIRHANDLE, $dir) or die "can't open $dir: $!";
my @list=grep !/^\.\.?\z/, readdir DIRHANDLE;
print (OUTFILE "\n\n\n");
# now we sort the list on directory basis
foreach my $file (sort {-d "$dir/$b" <=> -d "$dir/$a"} @list)
{
print "$file
\n" if -d "$dir/$file";
print "$file
\n" if -T "$dir/$file";
}
closedir (DIRHANDLE);
print @dirs;
print (OUTFILE "\n\n");
close (OUTFILE);