#!/usr/bin/perl

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

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

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

foreach $file ( sort readdir(IDIR) )
  {

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

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

   }
closedir(DIR);