# IO_server.pl
# see also:
# http://aspn.activestate.com/ASPN/Mail/Message/perl-tk/1857686
use IO::Socket;
use File::Basename;
use strict;

our $data;

my $socket = IO::Socket::INET-> new(
    Listen    =>  5, 
    Reuse     =>  1, 
    LocalPort =>  10254, 
    Proto     =>  'tcp',
) or die "Couldn't open socket: $!";
print basename($0)," started\n";
my $new_sock = $socket->accept();
while ($data = <STDIN>) {
    print $data;  # tee
    syswrite $new_sock, $data;
}