User Name:
    Password:

##</code><code>##

    prompt username
        match /User Name/

    prompt password
        match /Password/

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use Net::Appliance::Session;

my $host = '<my_host>';
my $user = '<my_user>';
my $pass = '<my_pass>';

my $session = Net::Appliance::Session->new({ 
    add_library     => '/home/edunn/switch',
    personality     => 'custom',
    transport       => 'SSH',
    host            => $host,
    connect_options => { opts => [ '-q', ], },
});
   
$session->set_global_log_at('debug');

$session->connect($user,$pass ) or die "Cannot Connect! : $!";

my @output = $session->cmd('show version');

$session->close;

print join("\n",@output);

##</code><code>##

   [0.001442] p  finding prompt
   [0.006910] t  creating Net::Telnet wrapper for ssh
   [0.007164] t    command expands to:  ssh -o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null -o CheckHostIP=no -q 192.168.2.17
   [1.349082] d    SEEN:


   [1.364935] p   reading phrasebook /home/edunn/switch/custom/login
   [1.365581] p    storing prompt username
   [1.366753] p    storing prompt password
   [1.367592] p    nope, doesn't (yet) match password
   [1.367821] p    nope, doesn't (yet) match username
   [1.368008] p    no match so far, more data?
   [1.368295] d    SEEN:



   [1.368446] p    nope, doesn't (yet) match password
   [1.368690] p    nope, doesn't (yet) match username
   [1.368877] p    no match so far, more data?
   [1.384701] d    SEEN:




User Name:
   [1.384963] p    nope, doesn't (yet) match password
   [1.385179] p   hit, matches prompt username
   [1.385931] p   prompt has been set to (?-xism:User Name)
unknown prompt [prompt] at /usr/share/perl5/vendor_perl/Net/CLI/Interact/Phrasebook.pm line 53
        Net::CLI::Interact::Phrasebook::prompt('Net::CLI::Interact::Phrasebook=HASH(0x3665390)', 'prompt') called at /usr/share/perl5/vendor_perl/Net/CLI/Interact/Role/Prompt.pm line 48
        Net::CLI::Interact::Role::Prompt::prompt_looks_like('Net::CLI::Interact=HASH(0x329dc78)', 'prompt') called at /usr/lib64/perl5/vendor_perl/Moose/Meta/Method/Delegation.pm line 108
        Net::Appliance::Session::prompt_looks_like('Net::Appliance::Session=HASH(0x31d6d30)', 'prompt') called at /usr/share/perl5/vendor_perl/Net/Appliance/Session/Transport.pm line 58
        Net::Appliance::Session::Transport::connect('Net::Appliance::Session=HASH(0x31d6d30)', 'cisco', 'uzf1IgENudObn759sJ9U') called at ./switch.pl line 21