...;
my $thr1 = threads->new(\&sock_io);
stdio_io();
...;