#!perl

use Parallel::ForkManager;
use strict;
use warnings;

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

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