### Server ########
use IO::All;

    my $socket = io(':12345')->fork->accept;
    $socket->print($_) while <DATA>;
    $socket->close;

    __DATA__
    On your mark,
    Get set,
    Go!
##############Here is the client code:

    use IO::All;

    my $io = io('localhost:12345');
    print while $_ = $io->getline;