use Date::Format;
$file = '...filepath...';
$modTimeInSec = (stat $file)[9];
print time2str("%d/%m/%y", $modTimeInSec);

##</code><code>##

@files = grep { 
     my $mod = (stat $_)[9];
     $startTime <= $mod && $mod <= $endTime
} <*.*>;