#!/usr/bin/perl
use strict;
use warnings;

use Net::Telnet ();

my $tele = new Net::Telnet (
                Host => 'nethack.alt.org',
                Timeout => 30,
                Port => 21

);