use strict;
use warnings;
use Net::SSH::Any qw();
my $ssh =
  Net::SSH::Any->new( '172.21.71.197', user => 'root', password => 'r3v3nue' );
my @tmp = $ssh->capture('ls -lrt');

print "@tmp \n";
print "====================\n";
@tmp = $ssh->capture('date');
foreach (@tmp) {
    if ( $_ =~ /(\d+:\d+:\d+)/ ) {
        print "Time is $1";
        last;
    }
}