my $scpe;
# Login versuchen
eval { $scpe = Net::SCP::Expect->new(user=>'root',password=>$password,auto_yes=>1,recursive=>'1'); };
if ($@ && $@ =~ /Error: Bad Password/) { # falls Loginfehler
  next IPNEXT;                    # versuche nächstes Login
}