$input = lc $input;
    if ($input ne "")
      {
        $t->print("$input");
        $line = $t->getline;
      }