my $s = IO::Socket::INET::new(PeerHost => $host, PeerPort => $port,
                              Blocking => 0, ...);
my $t = Net::Telnet::new(fhopen => $s, ...);