#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Date::Calc qw/ Time_to_Date /;
use File::Find::Rule;

my @files = File::Find::Rule->file()
                            ->name( '*.doc' )
                            ->mtime( -1 )
                            ->in( 'D:/Dokumentation/' );

@files = map {
  {
    name => $_,
    #modified => [Time_to_Date((stat($_))[9])],
    size => (stat($_))[7]
  }
} @files;

print Dumper \@files;