#! /usr/bin/perl

use strict;
use warnings;
use Net::Telnet;
use Data::Dumper;

my $t = new Net::Telnet (Timeout => 10,
                         Prompt  => '/>/');

$t->open("192.168.3.35");
$t->print("");
$t->login('user','****');
$t->print('3');
$t->print('1');
my @lines = $t->print('2');

print Dumper @lines;

exit(0);

##</code><code>##

#! /usr/bin/perl

use strict;
use warnings;
use Net::Telnet;
use Data::Dumper;

my $t = new Net::Telnet (Timeout => 10,
                         Prompt  => '/>/');

$t->open("192.168.3.35");
$t->login('user','****');
$t->print('3');
$t->print('1');
my @lines = $t->print('2');

print Dumper @lines;

exit(0);