#! perl -slw use strict; use threads qw[ async ]; sub sub1 { while(1) { print "in sub 1"; select undef, undef, undef, 0.1; } } sub sub2 { while(1) { print "in sub 2"; select undef, undef, undef, 0.1; } } async \&sub1; sub2;