むっちゃ適当。 use strict; use warnings; use Data::Dumper; use Time::HiRes qw/gettimeofday/; sub timer(&$){ my($code, $wait_time) = @_; return sub{ my $start_time = shift; my $now_time = shift; if(($now_time - $start_time) >= $wait_time){ …