#!perl

use Parallel::ForkManager;
use File::Where qw(where_pm);
use strict;
use warnings;

my $pm = new Parallel::ForkManager(2);
for my $i (1 .. 3) {
  my $pid = $pm->start and next;

  my @ret = File::Where->where_pm("File::Where");
  print $ret[1]."\n";
  $pm->finish;
}
$pm->wait_all_children;