open $STDIN,'-';

$top->fileevent($STDIN,readable => sub {
                  my $line = <$STDIN>;
                  $listboxb->insert('end',$line);
                });