use threads; async{ my $x == time() while Win32::Sleep 0.25; };