Im using Net::SSH::Perl and Net::Telnet to login to a list of routers. I dont know if the routers are using SSH or Telnet, so I need to try both. The problem is the script is dying within the SSH module and not going to the next line in my script. Can anyone tell me how I can get around this? Heres the portion of my script Im refering to:

$rtrs = "$workdir/bin/wanrtrs";
$outfile = "$workdir/$date-allnetrtrscn.raw";
open ($INR,$rtrs) || die "Can't open the file: $!\n";
open ($OUT,">>$outfile") || die "Can't open the file: $!\n";
while (<$INR>){
        chomp();
        push(@rtrs, $_);
}

foreach $host (@rtrs){

$remote = Net::SSH::Perl->new($host);
$remote->login($user, $pass);
if ( ! $remote ){
        print "ERROR: Problem Connecting to $host\n";

$remote = Net::Telnet->new($host);
$remote->login($user, $pass);
}
($stdout) = $remote->cmd("sh ip vrf int");
         print $OUT "$host:sh ip vrf int\n$stdout\n";

}
[download]