#!usr/bin/perl
use warnings;
use strict;
my $dir = "/Users/ctp/perlwork";
opendir (DIRHANDLE, $dir) or die "can't open $dir: $!";
print "\n\n\n";
while ( defined (my $file = readdir DIRHANDLE))
{
next if $file =~ /^\.\.?$/;
print "$file
\n" if -d "$dir/$file";
print "$file
\n" if -T "$dir/$file";
}
closedir (DIRHANDLE);
print "\n\n";