use threads;

while( 1 ) {
    my $t = threads->create( sub{ undef @_;undef;} );

		my $f = $t->join();
		undef $t;
		undef $f;
		threads->yield();
		select undef,undef,undef,0.2;
}