#!/usr/bin/perl
use strict;
use Tk;
use IO;
use IO::Socket::INET;
my ($server, $server_port, $maxlisten);
$maxlisten=5;

if (@ARGV<1) { 
    $server_port=9876;
} else {
    $server_port=shift;
}
$server = IO::Socket::INET->new(LocalPort => $server_port,
                                 Type      => SOCK_STREAM,
                                 Reuse     => 1,
                                 Listen    => $maxlisten );

my $top = MainWindow->new();
$top->fileevent($server, 'readable' => \&recedata);
MainLoop();

sub recedata {
        warn "in recedata\n";
        my $data;
        my $n=80;
        my $client=$server->accept();
        if(sysread($client,$data,$n)<0) {
          die "Error in socket read\n";
        }
        print "$data\n";
#       my $data=<$client>;
        my $t2 = $top->Scrolled('Text');
        $t2->pack(-expand => 1, -fill => 'both');   
        tie (*TEXT2, 'Tk::Text',$t2);
        print TEXT2 "$data\n";
}