# Use the object oriented version of stat
use File::stat;
...

sub _dircleaner($self, $dir, $maxagedays) {
    my $reph = $self->{server}->{modules}->{$self->{reporting}};

    $reph->debuglog("Scanning $dir for cleaning");

    my @todelete;
    my $deletes = 0;
    my $ok = 1;

    my $dfh;
    if(!opendir($dfh, $dir)) {
        $reph->dblog("DIR_CLEANER", "Can't open '$dir'");
        $dbh->commit;
        $reph->debuglog("Can't open $dir");
        $ok = 0;
        goto finishcleaning;

    }

    my $fcount = 0;
    my $maxage = $maxagedays * 3600 * 24; # Convert days to seconds
    my $now = time();
    while((my $fname = readdir($dfh))) {
        next if($fname eq "." || $fname eq "..");

        # FIXME FOR SUBDIRS! CLEAN UP SUBDIRS, THEN REMOVE ALL EMPTY DIRS

        next if(!-f "$dir/$fname");
        my $fileage = stat("$dir/$fname")->mtime;
        my $age = $now - $fileage;
        next if($age <= $maxage);
        push @todelete, "$dir/$fname";
        $fcount++;
    }
    closedir($dfh);

    if($fcount) {
        $reph->debuglog("Cleaning $fcount file(s) in $dir");
        foreach my $fname (@todelete) {
            if(unlink $fname) {
                $deletes++;
                $reph->debuglog("   ...deleted $fname");
            } else {
                $ok = 0;
                $reph->debuglog("Failed to delete $fname");
            }
        }
        $reph->debuglog("Deleted $deletes file(s).");
    }

finishcleaning:
    return $ok;
}