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

find( \&wanted, '.' );

sub wanted {
    return if $_ eq '.' or $_ eq '..';
    my $st = stat($_);
    print sprintf "Filename: %s, Size: %s, Date Modified: %s\n", $_, $st->size,
      scalar localtime $st->mtime;
}