[bluethundr@cc90-45:~/perl ] #:./vservers.pl
Global symbol "$user" requires explicit package name at ./vservers.pl line 16.
Execution of ./vservers.pl aborted due to compilation errors.

=====================================================================================

#!/usr/bin/perl
#
use strict;
#use warnings;
#
#
use Net::SSH::Perl
my $user="bluethundr";
my $pass="secret";
my $dir="$ENV{HOME}/data";
open LBVSERVERS, '<', "$dir/lb-vserver", or die "Couldn't open file: $!";
open CSVSERVERS, '<', "$dir/cs-vserver", or die "Couldn't open file: $!";


my $ssh = Net::SSH::Perl->new("10.50.0.1");
$ssh->login("$user", "$pass");

print "\n\n\n\n\n**********LB VSERVERS**********\n\n\n\n\n";
while (my $line = <LBVSERVERS>) {
      chomp $line;
      my ($number,  $lbvserver) = split(/\s+/, $line);
      print "show lb vserver $lbvserver\n";
      $ssh->cmd("show lb vserver $lbvserver");
      chomp(my $ans = <STDIN>);
      print "Ready for next lb vserver? (y/n): ";
      if ($ans=~/y|Y/) {
        next;
      } else {
         chomp(my $done = <STDIN>);
         print "Quit? (y/n): ";
         if($ans=~/y|Y/) {
           last;
         } else {
         next;
         }
       }



print "\n\n\n\n\n**********CS VSERVERS**********\n\n\n\n\n";
while (my $line = <CSVSERVERS>) {
      chomp $line;
      my ($f1,  $f2, $f3, $csvserver) = split(/\s+/, $line);
      print "show cs vserver $csvserver";
      $ssh->cmd("show cs vserver $csvserver");
      print "Ready for next lb vserver? (y/n): ";
      if ($ans=~/y|Y/) {
        next;
      } else {
         chomp(my $done = <STDIN>);
         print "Quit? (y/n): ";
         if($ans=~/y|Y/) {
           last;
         } else {
         next;
         }
       }
 }
}


close   LBVSERVERS;
close   LBVSERVERS;