------------------------------------------------------- 
1: use Net::Telnet::Cisco; 
2: 
3: foreach $geraet 
4:{ 
5:my $session = Net::Telnet::Cisco->new(Host => '$Geraet'); 
6:$session->login('login', 'password'); 
7: 
8:my @output = $session->cmd('show version'); 
9:print @output; 
10:$session->close; 
11:} 
-------------------------------------------------------