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
);