$t->print("!");
my $data = $t->get();
print STDOUT "$data\n";
WriteToScreen($data);
return;

##</code><code>##

print STDOUT "Get_CMap() Live Mode\n";
select($t);
$t->print($CMap_cmd);
$t->flush(); # this flushes the ouput buffer, but it is $|=1 anyway.
$newCMapData = $t->get();
print STDOUT "$newCMapData\n";
WriteToScreen($newCMapData);

##</code><code>##

 sub WriteToScreen {
      my ($msg) = @_;

      $screen->insert("1.0", $msg);
      $numlines = ($screen->index("end")-1);
      $screen->configure(-state => "normal");
      if ($screen->index("end-1c") != "1.0") {
         $screen->insert_end("\n");
      }
      $screen->insert_end($msg);
      $screen->see("1.0");
      $screen->configure(-state => "disabled");
      $screen->yview("end");
}

##</code><code>##

$cm1 = "M 11:24:49 25,00 7 UTL QRY CMAP 064 TODC---- TYPE DC102 4 LN MSG:\r\n
 04124  20003  19317  19318  00000  19320  19324  19315\r\n
 19323  19314  19316  19319  00000  19601  00000  20103\r\n
 19604  07301  07302  07303  00403  07304  19407  19410   COMPL\r\n";

##</code><code>##

  if ($cmd =~ m/cmap 111/ig) {
     select (NS);
     $|= 1;
     select (NS);
     print NS "$cm1";
     print NS "\n";
     print STDOUT "$cm1";
  }

##</code><code>##

    if ((length($ll) < 3) && ($ll !~ /!/g)) {
        print NS "!";
        print STDOUT "3!\r\n";
        next;
        }