#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $dir = '/path/to/dir';
my @files;

find(\&wanted,$dir);

sub wanted{
   my $file = $File::Find::name;
   # vereinfachend gehe ich davon aus, dass es entweder eine Datei oder ein Ordner ist...
   my $flag = -f $file ? 'f' : 'd'; 
   my $time = -M $file;

   push(@files,$file.'__'.$time.'__'.$flag);
}