#!/usr/bin/env perl
use strict;
use warnings;
use File::Find;
use Parallel::ForkManager;

my $MAX_PROC = 5;

my $pm = Parallel::ForkManager->new($MAX_PROC);

opendir my $dh, '.';

while (readdir $dh) {
    my $entry = $_;
    next if $entry eq '.';
    next if $entry eq '..';
    if (-f $entry) {
        my $size = (stat $entry)[7];
        if ($size == 0) {
            printf "%s\n", $entry;
        }
    }

    if (-d $entry) {
        $pm->start and next;
        find({
            wanted => sub {
                my $name = $File::Find::name;
                return unless (-f $name);
                my $size = (stat $name)[7];
                if ($size == 0) {
                    printf "%s\n", $name;
                }
            },
            no_chdir => 1,
        }, $entry);
        $pm->finish;
    }
}

$pm->wait_all_children;