title: perl how to print to a perl/tk listbox
body: <p>how to i send print output to a perl/tk list box, there can be unlimited lines of print.
  i know how to create the list box but don't now how to call the listbox and print to it.
  this is the code that produces the print line by line.</p>
  
  <pre><code>  [code]
      #!/usr/bin/perl -w
      use strict;
  
       #Read input file a line at a time
  
        $mydelimiter=",";
  
  
  
         open (INPUT1,"$INFILE1") or
           die " cannot open $INFILE1";
  
         while (&lt;INPUT1&gt;) { 
      @INFILE = ($_);
      chomp($_);
      @FAILS = split (/,/,);
      @SERVER = splice (@FAILS,0,1);
      @TYPE = splice (@FAILS,0,1);
      @REASON = splice (@FAILS,0,1);
      @STATUS = splice (@FAILS,0,1);
      @TICKET = splice (@FAILS,0,1);
      @RESOLUTION = splice (@FAILS,0,1);
      foreach $server1 (@SERVER) {
          $servers = $server1;
          $servers =~ tr/[a-z]/[A-Z]/;
      }   
  
      foreach $type1 (@TYPE) {
          $types = $type1;
          $types =~ tr/[a-z]/[A-Z]/;
      }   
  
      if ( "$types" eq "F") {
      $types="FAILED";
      }
      else {
      if ("$types" eq "S") {
      $types="FILES";
      @TICKET="TICKET";
      }}
  
      $value= &amp;read_location;
      if ("$value" ne "0"){
      print "@SERVER \n";
      }
          [code]
  </code></pre>