#!/usr/bin/perl
use strict;
use warnings;
use Errno qw/EWOULDBLOCK/;
use IO::Socket;
#my $socket = IO::Socket::INET->new( 'localhost:5555', ) or die "Failed";
STDIN->blocking(0);
my $data;
while (1) {
    my $rc = sysread( STDIN, $data, 1024 );
    if ( defined $rc ) {
        if ( $rc > 0 ) {
#            print $socket $data;
            print $data,"\n";
        }
        else {
#            close $socket;
        }
    }
    elsif ( $! == EWOULDBLOCK ) {
        next;
    }
    else {
        die "sysread error:$!";
    }
}
#close $socket;