#!/usr/bin/perl
$inputlog  = "/home/test/input.log";		 # your input logfile
$outputlog = "/home/test/output.log";	 # your input logfile
use Net::Telnet;
$telnet=new Net::Telnet(Timeout=>5, Errmode=> 'Die', Port => 2004,
  										Input_log => $inputlog,
  										Output_log => $outputlog);


$telnet->open('10.1.1.1');
$telnet->print("\n");
$telnet->print("en");
$telnet->print("terminal length 0");
@output=$telnet->cmd('sh run');
print ("Output is: @output \n");