#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $server = IO::Socket::INET->new(
   Listen   => 10,
   LocalAddr   => 'your.host.de', # host oder ip auf der gelauscht werden soll
   LocalPort   => 12345,
   Proto   => 'tcp', # wahlweise auch udp
) or die $!;

open(my $file, ">", "/tmp/some_file.txt") or die $!;

while(my $client = $server->accept()) {
   if(fork() == 0) {
      my @data = <$client>;
      print $file @data;
   }
}
close($file);