#!/usr/contrib/bin/perl -w
use IO::Socket;
use Proc::Daemon;
Proc::Daemon::Init;

$receivefile = ">test.CONF";

$server = IO::Socket::INET->new(
    Listen    => 5,
    LocalAddr => 'localhost',
    LocalPort => 5050,
    Proto     => 'tcp',
    Reuse     => 1,
    Type      => SOCK_STREAM
) or die "Can't create server socket: $!";

open FILE, $receivefile or die "Can't open: $!";
while ($client = $server->accept()) {
    print FILE $_;
}
close($client);