use Net::Telnet::Cisco;
for ($i = 1; $i <= 254; $i++){
$device = "10.10.$i.1";

  my $session = Net::Telnet::Cisco->new(Host => "$device",
			                Input_log => "perllogrouter/router$i.log",
				       );

   $session->login('admin', 'admin');

  $session->cmd('conf t');
  @output = $session->cmd ('some command');
     
  $session->close;
  }