print " -- executing: $component_name " . ($force_flag ? "(forced)" : "") . " ($component) \n"; my $thr = threads->create( sub { my $passed_component = shift; print "STARTED: $component_name ($passed_component)\n"; $passed_component->execute($current_time); print "FINISHED: $component_name (at $current_time)\n"; }, $component ); #### -- executing: MYCOMPONENT (Scheduler::Component=HASH(0x1dd4244)) STARTED: MYCOMPONENT (Scheduler::Component=HASH(0x21bca9c)) #### CREATED NEW COMPONENT (Scheduler::Component=HASH(0x1dd4244))