use 5.20.0;
use threads;

my $thr1 = async { do { print "loop1\n"; sleep 1 } while 1 };
my $thr2 = async { do { print "loop2\n"; sleep 1 } while 1 };

do { print "main\n"; sleep 1 } while 1;