こちらを参考に。 use strict; use warnings; use Gearman::Worker; use Parallel::Prefork; use Storable qw( thaw ); use List::Util qw( sum ); use Perl6::Say; sub MaxRequestsPerChild () { 60 } my $pm = Parallel::Prefork->new({ max_workers => 3, trap_signals => { TERM => 'TERM', HUP => 'TERM', }, }); my $worker = Gearman::Worker->new; $worker->job_servers("localhost"); $worker->register_function(sum => sub { su