##
Last change: 2004111622
##
##
#!/usr/bin/perl
use Time::localtime;
$tm = localtime;
opendir(DIR,"/usr/path");
my @dir=grep { !/^\.+$/ } readdir(DIR);
closedir(DIR);
$file_count = 0;
foreach $file (@dir)
{
$mtime = (stat ($file))[9];
print "Last change:\t" . scalar localtime($mtime) . "\n";
}