opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
	$mtime= (stat($file))[9];
	print "$file : $mtime<br>";
}
closedir(DIR);