use strict;
use warnings;

use Net::Appliance::Session;

my $host = 'host';
my $user = 'username';
my $pass = 'password';

my $s = Net::Appliance::Session->new({
    personality => 'cisco',
    transport => 'SSH',
    host => $host,
    do_paging => 0
});

try {
    $s->connect({
        username => $user,
        password => $pass
    });

    $s->begin_privileged({ password => $pass });
    print $s->cmd('show clock');
    $s->end_privileged;
} catch {
    warn "Failed to execute command: $_";
} finally {
    $s->close;
};