#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use File::Find::Rule;

my %stat;
$stat{getpwuid((stat($_))[4])} += (stat($_))[7] for
     (File::Find::Rule->file()
       ->name( '*' )
       ->mtime( '>'.(time()-(3*24*60*60)))
       ->in( '.' )
     );

print Dumper \%stat;