gistfile1.pl

use Time::Out qw(timeout);
use DDP;
 
sub run_with_timeout(&$$) {
    my $block   = shift;
    my $timeout = shift;
    timeout $timeout, @_ => sub {
        my $pool = shift;
        while ( my $s = pop @$pool ) {
            $block->($s);
        }
    };
    return @_;
}
my ($t) = run_with_timeout { print "$_[0]\n"; sleep $_[0]; } 10, [ 42, 3, 5, 1, 4, 2 ] ;
p $t