#!/usr/bin/env perl
use Net::SSH::Any qw();
my $ssh = Net::SSH::Any->new('192.168.1.10', user => 'root', password => '123456');
my @tmp = $ssh->capture('date');