use strict;
use IO::Select;
my $s = IO::Select->new(\*STDIN, $telnet, $telnet2);

while (my @ready = $s->can_read()) {
    for my $ready (@ready) {
        if ($ready == \*STDIN) {
            handle_stdin();
        }
        else {
            handle_telnet($ready);
        }
    }
}