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

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