#!/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";
}