#!/opt/ActivePerl-5.8/bin/perl -w
use Net::Telnet::Cisco;
use strict;

my @dev=();
$dev[0]={'ip'=>"$ip",
	    'prompt1'=>'/R7204\.TB\>/',
	    'prompt2'=>'/R7204\.TB\#/',
 	    'username'=>'etwas', 
	    'password'=>'geheimes',
	    'enable'=>''};
my @pole=();
my $tel=new Net::Telnet::Cisco(Timeout=>10,Prompt=>$dev[0]->{prompt2},Host=>$dev[0]->{ip});
$tel->login(Name=>$dev[0]->{username},Password=>$dev[0]->{password});
$tel->prompt($dev[0]->{prompt2});

$tel->dump_log('logfile.log');
$tel->print("telnet $andereIP /vrf VOICE");
$tel->waitfor('/Username:/');
$tel->print($dev[0]->{username});
$tel->waitfor('/Password:/');
$tel->print($dev[0]->{password});
$tel->waitfor('/MACC\-MFC\#/');
@pole=$tel->cmd('sh running');
$tel->print('exit');

$tel->close;

print "@pole\n";