my $t = new Net::Telnet (Timeout => '30',
                        Errmode => 'return',
                        );
my $openResult = $t->open("$remoteHost");
  if ($openResult eq 1){
    my $loginResult = $t->login($username, $password);

    if ($loginResult eq 1){
      @lines = $t->cmd("your_command_here");
    } else {
      $lines[0] = "Error logging into device: '" . $t->errmsg . "' \n";
    }
    $t->close;
  } else {
    $lines[0] = "Error connecting to device: '" . $t->errmsg . "' \n";
  }