####################### PRAGMA #######################
use strict;

####################### IMPORT ####################### 
use file::stat;

my $file = "d:\\brossad\\"; # your own folder name here
my @info = stat($file);
my $last_access =  $info[8];
my $last_modification = $info[9];

if (@info)
{
   #print $last_access."\n";
   my @time = (localtime($last_access));
   $time[4]++;
   $time[5] += 1900;
   print ("time : $time[2]:$time[1]:$time[0] "."- $time[3]/$time[4]/$time[5].\n");
}
else
{
   print "oops\n";
}