my $stopFlag=0;

$SIG{ARLM} = sub { $stopFlag=1; };

    alarm($MAX_TIME);
    foreach my $data (@all_data) {
        last if $stopFlag;

        my $pid = $pm->start and next;

        # Process or call processing routines 
        # for $data here

        $pm->finish;
    }
    $pm->wait_all_children;
    alarm(0);