#!/usr/local/bin/perl

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@files = readdir(DIR)
closedir DIR;

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


  # Will use data to create SQL statements to input data into Database
}