#!/usr/bin/perl
use warnings;
use strict;

my $dirname = ".";
opendir(DIR, $dirname) || die "can't opendir $dirname': $!";
my @dots = readdir(DIR);
closedir DIR;

foreach my $file (@dots){
    my $diff = -M $file;
    print "The age of $file is $diff : " . $diff . " : " . int($diff) . "\n";
}