#!/usr/bin/perl -w

use Parallel::ForkManager;
use strict;
use vars qw($pm);

sub max_processes  { 5; }
sub max_seconds {
    ( ( ( ( ( 0 * 24 ) + 0 ) * 60 ) + 0 ) * 60 ) + 10;
}    # Time in seconds - 0d 0h 0m 10s

$pm = new Parallel::ForkManager(&max_processes);

$SIG{ALRM} = sub { die ("TimeOut"); };
eval {
    alarm( &max_seconds() );
    foreach my $data (0..500) {
        my $pid = $pm->start and next;

        print($data);
        sleep(int(rand(10)));

        print('-', $data, "\n");

        $pm->finish;
    }
        print("Waiting on everyone...\n");
    $pm->wait_all_children;
    alarm(0);
};
if ($@) {
    if ( $@ =~ m/TimeOut/ ) {
        # timed out; do what you will here
        $pm->set_max_procs(0);
        print("Who's left?\n");
        $pm->wait_all_children;
    }
    else {
        alarm(0);
        die;
    }
}