#!/usr/bin/perl
use warnings;
use strict;
my $dir = "/Users/ctp/perlwork";
# 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 "\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 "\n\n";