$ssh->cmd("show 1b vserver $csvserver");
##</code><code>##

$ssh->cmd("ls /path/to/csvserver");
##</code><code>##

#!/usr/bin/perl

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

my $host = 'localhost';
my $user = 'username';
my $pass = 'password';
my $cmd  = 'perl /path/to/showthis.pl';

my $ssh = Net::SSH::Perl->new(
          $host, 
          protocol => '2',
          debug    => 1,
);
$ssh->login( $user, $pass );

my ( $stdout, $stderr, $exit ) = $ssh->cmd($cmd);
print "$stdout\n";

##</code><code>##


#!/usr/bin/perl

use strict;
use warnings;

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: $!";

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

print "\n\n\n\n\n**********CS VSERVERS**********\n\n\n\n\n";
while ( my $line = <DIR> ) {
    chomp $line;
    my ( $number, $dir ) = split( /\s+/, $line );
    print "show lb vserver $csvserver\n";
    print "Ready for next lb vserver? (y/n): ";
    chomp( my $ans = <STDIN> );
    if ( $ans =~ /y|Y/ ) {
        next;
    }
    else {
        last;
    }
}
print "\n\n\nEnd of line.\n\n\n";

close LBVSERVERS;
close CSVSERVERS;