#!/usr/bin/perl

use strict;
use warnings;
use Net::SSH::Perl;


my $user = 'netscreen';
my $pass = 'xxxx';
my $cmd1 = 'set nsm server primary 192.168.0.19 src-interface bgroup0';
my $cmd2 = 'set nsmgmt server primary 192.168.0.19 src-interface bgroup0';
my $cmd3 = 'exit';
my $cmd4 = 'y';
#my @sites = (170..191);
my @sites = (176);

foreach my $site (@sites) {
 my $site = $site . ".tpxinc.com";
 my $ssh = Net::SSH::Perl->new($site, port => 2222, protocol => 2);
 $ssh->login($user, $pass);

 my ($out1, $err1, $exit1) = $ssh->cmd($cmd1);
 print "$out1\t $err1\t $exit1\n";
 my ($out2, $err2, $exit2) = $ssh->cmd($cmd2);
 print "$out2\t $err2\t $exit2\n";
 my ($out3, $err3, $exit3) = $ssh->cmd($cmd3);
 print "$out3\t $err3\t $exit3\n";
 my ($out4, $err4, $exit4) = $ssh->cmd($cmd4);
 print "$out4\t $err4\t $exit4\n";

 print "Finished site: $site\n";
 sleep(1);
}