use Parallel::ForkManager;
my $fm = Parallel::ForkManager->new(1);