Select Code to Download

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

print STDOUT "Get_CMap() Live Mode\n";
select($t);
...
$newCMapData = $t->get();
print STDOUT "$newCMapData\n";
WriteToScreen($newCMapData);

 sub WriteToScreen {
      my ($msg) = @_;
...
      $screen->configure(-state => "disabled");
      $screen->yview("end");
}

$cm1 = "M 11:24:49 25,00 7 UTL QRY CMAP 064 TODC---- TYPE DC102 4 LN M
+SG:\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";

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

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