Shell Programming and Scripting

use File::stat;

open (D,"$ARGV[0]") or die "Can't open\n";

while (defined ($file = readdir D))
{
  next if ! -T $file;
  $last_mod = (stat($file))[9] or die"Can't stat\n";
  print"$file:\t$last_mod\n";
}

#!/usr/bin/perl -w
use File::stat;
$dirname = $ARGV[0];
opendir (D, $dirname) or die "Can't open\n";
while (defined($filename = readdir D ))
{
    next if ! -T $filename;
    $fullname=$dirname."/".$filename;
    $st = stat($fullname) or die "Can't stat\n";
    printf "%s\t%s\n", $filename,  scalar localtime $st->mtime;
}

print "$filename:\t" . localtime($st->mtime) . "\n";