#!/usr/bin/perl
use strict;
use warnings;
use strict;
use 5.010;

use local::lib './lib';
use File::Find::Rule;
use Parallel::ForkManager;
use utf8;

my $dir = './';

my @mp3s = File::Find::Rule->file()
    ->name( '*.mp3' )
    ->in($dir);

say "INFO: Number of mp3 files found " . scalar @mp3s;

my $num_of_cores = 2;

my $pm = Parallel::ForkManager->new($num_of_cores);
for my $proc_id (0..$num_of_cores - 1) {
    my $pid = $pm->start and next;

    for(my $i = $proc_id; $i < scalar @mp3s; $i += $num_of_cores) {
        my $file = $mp3s[$i];
        say "Proc: $proc_id: Working on '$file'";
    }
    $pm->finish;
}
$pm->wait_all_children;
say "END";