use v5.14;
use strict;
use warnings;

use Foo;

# Define object parameters.
use constant {
    HOSTNAME           => 'host.example.com',
    USERNAME           => 'username',
    PASSWORD           => 'password',
    COMMAND            => 'ls -la',
};

# Create the object.
my $rt = Foo->new({
    hostname       => HOSTNAME,
    username       => USERNAME,
    password       => PASSWORD,
    command        => COMMAND,
});


# Connect to server and execute.
$rt->connect();
my $rv = $rt->execute();
$rt->disconnect();

# Print the results.
print "$_"
        foreach (@{$rv});
print "*** DONE ***\n";