Help for this page

Select Code to Download

Select or download this

my $sel = new IO::Select;
$sel->add($sock);
...
    }
    last if ($die);
}