#!/usr/bin/perl -w

use Thread::Pool;

sub function{
		my @args = @_;
		#print "function\n",@args,"\n";
		#sleep int(rand(4));
		#sleep 1;
		#select( undef,undef,undef,0.25 );
		my $a = $args[0];
		my $b = 0;
for ( 1..($a*1000) ){
				$b++;
				$b = $b/10;
				$b++;
				$b *= 10;
				$b = $b / ($a+1);
				$b = $b /1.2334645897;
				$b = $b * 234.2312125;
				$b = $b/$a;
				$b++;
				$b = $b * $a;
		}
		return ( $a + 100 );
}


my $p = Thread::Pool->new(
		{optimize => 'cpu',                            # default: memory
                 do => \&function,        # must have
	        workers => 10}
	 );

for my $a ( 1..300 ){
		$p->job( $a );
}


$p->shutdown();