#!/usr/bin/perl
use Net::SSH::W32Perl;
   
my $host = 'x.x.x.x';
my $ssh = new Net::SSH::W32Perl($host);
$ssh->login('XXX', XXX);
my ($out, $err, $exit) = $ssh->cmd('show vlan brief');
print $out;
print $err;
print $exit;