#!/usr/bin/perl
use v5.14;
use File::stat;

my $dir = '/tmp/';
opendir(DIR, $dir) or die $!;

while (my $file = readdir(DIR)) {
    next if ($file =~ m/^\./);
    my $mtime = (stat $dir.$file)->[9];
    my($sec,$min,$hour,$mday,$mon,$year) = localtime($mtime);
    $year += 1900;
    say "File: $file, Mtime: $mday/$mon/$year";
}