use Net::Telnet;

$device = "192.168.6.2";

  my $session = Net::Telnet->new(Host => "$device",
	Input_log => "switchevi.log",
		);
  $session->login('username', 'password');

  # Execute a command
  @output = $session->cmd('some command ...');
  print "@output\n";
  print " ======================================================\n";
  $session->close;