Hi,

here is my script:
Code:
#!/usr/local/bin/perl -d 
use Net::Telnet; 

my $res = ""; 

my $ip = "10.120.7.95"; 
my $user = "autorun"; 
my $pass = "autorun"; 
my $env = "stam"; 

$tnt = Net::Telnet->new 
( Timeout => 60, 
Prompt => '/.*(>|\$|\#|:)\s*/', 
Errmode=>'die'
...