use DirHandle;

my $test_dir = "/some_dir/somewhere";
my $dump_out = "";
my $ftt = null;

if (-e "$test_dir") {
   my $dh = new DirHandle "$test_dir";
   if (defined $dh) {
         my @directories = $dh->read;
         my @files = sort { lc($a) cmp lc($b)  }(@directories);
         foreach my $fileentry ( @files )
         {
 (my $dev, my $ino,my $mode,my $nlink,my $uid,my $gid,my $rdev,
     my $size, my $atime,my $mtime,my $ctime,my $blksize,my $blocks)
          = stat("$test_dir/$fileentry");
        $dump_out .= "$fileentry - $size - ";
        $dump_out .= scalar(localtime($mtime));
        $dump_out .= "\n";
#$mtime - $atime\n";

#print scalar(localtime($mtime));

         }
         print $dump_out;
   } else {
     print "no dirhandle!";
   }

} else {
   print "no dir $test_dir";
}

-- MattWalsh - 22 Aug 2006