!/usr/bin/perl

use strict;
use IO::Socket::INET;

my $sock = new IO::Socket::INET (
                LocalPort => 5555,
                Listen    => 128,
                Type      => SOCK_STREAM,
                Proto     => 'tcp'
        );

unless ($sock)
{
        die "Could not create socket. Port might be in use.\n";
}

for(;;)
{
        my $new_sock = $sock->accept();

        if ($new_sock)
        {
                unless (fork())
                {
                        $new_sock->autoflush(1);

                        open (STDOUT, "<&=".$new_sock->fileno());
                        open (STDIN,  "<&=".$new_sock->fileno());

                        exec ("program");
                }
        }
}