#!/usr/bin/perl -w
use Net::Telnet;
$basedir="./";
$dlink_ip="192.168.1.1";
$dlink_user = "user";
$dlink_pass = "pass";
$t = new Net::Telnet(Prompt=>'/#$/',Input_log=>$basedir."in.log",Output_log=>$basedir."out.log");
$t->open($dlink_ip);
$t->login($dlink_user,$dlink_pass);
$cmd="show config current_config";# команда
@lines=$t->cmd("$cmd");
print @lines;
exit;