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