$ perl -Mthreads -e'my $t = async { die "Foo" }; $t->join; say "done"'
Thread 1 terminated abnormally: Foo at -e line 1.
done