$ perl -Mthreads -E'my $o = \&threads::exit; *threads::exit = sub { warn "exit"; $o->(@_) }; my $t = async { threads->exit(); }; $t->join; say "done"'
exit at -e line 1.
done