Select Code to Download

my $buffer:shared="";
sub PRINT {
...
 $|++;
 $buffer="";
}

my $pt=threads->new(\&PRINT_THREAD);
sub PRINT_THREAD {
 dump_on_screen();
}