Select Code to Download

use strict;
use warnings;
...
sleep 10;
warn "'main' thread still running (hung); aborting" if $main->is_runni
+ng();
warn "end main\n";