Привет ВСЕМ
Вот скрипт:

#!/usr/local/bin/perl

$hostname="127.0.0.1";
$port="5005";
if( $ARGV[4] eq '' ) { die 'Usage:  user nasip userip nasport'; };

$framedip=$ARGV[0];
$user=$ARGV[1];
$nasip=$ARGV[2];
$userip=$ARGV[3];
$nasport=$ARGV[4];
$nasport=$nasport+1;
use Net::Telnet ();
$t = new Net::Telnet ;
$t->open(Host    => $hostname,
         Port    => $port,
         Timeout => 10);
$t->waitfor('/Username:.*$/');
$t->print("mpd");
$t->waitfor('/Password:.*$/');
$t->print("PASSW");
$t->print("bundle pptp1");
Дальше надо выполнить команду и с выводом поработать...
$t->print("show summary");

Как Мне получить вывод?
И потом выполнить ввод еще команд?

Вот подключение по телнет:
telnet 127.0.0.1 5005
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Multi-link PPP daemon for FreeBSD

Username: mpd
Password:

Welcome!
Mpd pid 1481, version 4.1 (root@server 21:06 24-Feb-2007)
[pptp1] bundle pptp1
[pptp1] CONSOLE: mpd: bundle pptp1
[pptp1] show summary
[pptp1] CONSOLE: mpd: show summary
Current daemon status summary
Iface   Bund    Link    Device  Iface   LCP     Device  User            From
ng1     pptp1   pptp1   pptp    Down    Initial DOWN                    UNSPEC
ng2     pptp2   pptp2   pptp    Down    Initial DOWN                    UNSPEC
ng3     pptp3   pptp3   pptp    Down    Initial DOWN                    UNSPEC
..........................тут повторение.........................
ng398   pptp398 pptp398 pptp    Down    Initial DOWN                    UNSPEC
ng399   pptp399 pptp399 pptp    Down    Initial DOWN                    UNSPEC
ng400   pptp400 pptp400 pptp    Down    Initial DOWN                    UNSPEC
[pptp1]

Когда [pptpХХХ] можно вводить команды

Заранее Спасибо