try {
    $s->connect({ username => 'username', password => 'loginpass' });
 
    $s->begin_privileged({ password => 'privilegedpass' });
    print $s->cmd('show access-list');
    $s->end_privileged;
}
catch {
    warn "failed to execute command: $_";
}
finally {
    $s->close;
};