my $thread = threads->create(sub {$obj->run(&MESSAGE)})
    or exit(1);
$thread->join();

##</code><code>##

my $callback = sub {$obj->run(&MESSAGE)};
$callback->();