#!/usr/bin/perl

my $dirtoread="/home/mydir/public_html/t/d/";

opendir(IDIR, $dirtoread) 
   || die "Error Opening Directory";

print "Content-type: text/html\n\n";

my @dots = grep { /^\./ && -f "$dirtoread/$_" } readdir(IDIR);

foreach $file (@dots)
  {
        
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($file);

print <<EOF;
File: $file<br>
dev: $dev<br>
ino: $ino<br>
mode: $mode<br>
nlink: $nlink<br>
uid: $uid<br>
gid: $gid<br>
rdev: $rdev<br>
size: $size<br>
atime: $atime<br>
mtime: $mtime<br>
ctime: $ctime<br>
blksize: $blksize<br>
blocks: $blocks<br><br><br>
EOF

   }
closedir(IDIR);