#!C:\perl\bin\perl -w
use Net::Telnet;

my $NT = new Net::Telnet();

$NT->open('128.999.999.999'); #obviously not the IP address
$NT->cmd();
my @out1 = $NT->cmd('1\n');

print "OUT1: @out1";