#!/usr/bin/perl

use warnings;
use strict;
use Net::SSH2::Cisco;

my $host = "<my_host>";
my $user = "<my_user>";
my $password = "<my_password>";

my $session = Net::SSH2::Cisco->new(host => $host);
$session->login(username => $user, password => $password);

my @version = $session->cmd("show version");

print @version;
$session->close;