#!/usr/bin/perl -w
use Net::Telnet;
use strict;

my $router = "212.31.213.106";
my $t=new Net::Telnet();
my $instr = "sh ver";

$t->open($router);

#...does login stuff here...#

$t->cmd("term len 0");
$t->cmd("sh run");
my @config = $t->cmd($instr);
$t->cmd(" ");

my $file = "/home/me/logs/blah";
open(FILE, ">$file");

print FILE "@config";