my $buffer:shared="";
sub PRINT {
 lock $buffer;
 $buffer.=shift;
}

sub dump_on_screen {
 lock $buffer;
 print $buffer;
 $|++;
 $buffer="";
}