#!/usr/bin/perl
use strict;
use warnings;

use Net::SSH2::Cisco;

my $host = Net::SSH2::Cisco->new(
    Host => 'device',
    Always_waitfor_prompt => 1,
    Prompt => '/(?m:^\\s?(?:[\\w.\/]+\:)?(?:[\\w.-]+\@)?[\\w.-]+\\s?(?:\(config[^\)]*\))?\\s?(?:\(admin-config[^\)]*\))?\\s?[\$#>]\\s?(?:\(enable\))?\\s*$)/', 
    Input_log => "log/device.log",
    Output_log => "log/output_device.log",
    Dump_Log => "log/dump_device",
    Waitfor_clear => '0',
);

 $host->login(
    name => 'user',
    password => 'pass',
);

#$host->cmd("term leng 0");
my @abc = $host->cmd(
        String => 'sh ver',
        Prompt => '/(?m:^\\s?(?:[\\w.\/]+\:)?(?:[\\w.-]+\@)?[\\w.-]+\\s?(?:\(config[^\)]*\))?\\s?(?:\(admin-config[^\)]*\))?\\s?[\$#>]\\s?(?:\(enable\))?\\s*$)/',
        Timeout => '20'
);

print @abc;

$host->close;