Select Code to Download

#!/usr/bin/perl
use threads;
...
async { my $obj = MyObj->new("detach"); sleep 1 }->detach;
async { my $obj = MyObj->new("join");   sleep 2 }->join;
        my $obj = MyObj->new("main");   sleep 3;

#!/usr/bin/perl
use threads;
...
async { $obj = MyObj->new("detach"); sleep 1 }->detach;
async { $obj = MyObj->new("join");   sleep 2 }->join;
        $obj = MyObj->new("main");   sleep 3;