Help for this page
$thr->suspend(); $thr->yield();
#!/usr/bin/perl use strict; ... print( join(' ', ()) ); sleep (1) until ($TERM);