#!/usr/bin/perl -w
use strict;
use Net::Telnet;

my $t = Net::Telnet->new(Port => 9999);

$t->open("localhost");
$t->print;

my $r = $t->getline;
print $r;