#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH::Perl;
 
my $host = "";
my $user = "";
my $password = "";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd("your command");