#!perl

use strict;
use warnings;

use Net::SSH2::Cisco;

my $host = Net::SSH2::Cisco->new(
    host => '10.254.254.1',
    dump_log => 'out.txt',
);

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

my @ret = $host->cmd(
    "copy running-config tftp://192.168.100.254\n\n\n"
);

print @ret;

$host->close;