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

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

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

print "OUT: @out";
print "OUT1: @out1";
print "OUT2: @out2";