use strict;
use warnings;

use Tk;
use Tk::Listbox;

my $top = MainWindow->new;
my $f = $top->Frame->pack;
my $lb = $f->Listbox()->pack;

open my $STDIN,'-';
$top->fileevent($STDIN,
               readable =>
               sub {
                 chomp(my $line = <>);
                 # 
                 # $lb->insert('end',$line);
                 #
                 $lb->insert('end',$line) or die;
               });

MainLoop;