#!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";

##</code><code>##

C:\Documents and Settings\toms\Desktop>perl isdn.pl
OUT1:
 ��[3;1H_________________________________________________________________________
______��[5;1H��[5;1H 1 - Local Login
 ��[6;1H 2 - Remote Login
 ��[7;1H 3 - Logout
 ��[23;1H________________________________________________________________________
_______��[24;2H��[KEnter Selection -