my $PId = undef;

while ( $new_sock = $sock->accept() ) {

	if ( defined ( $PId = fork() ) ) {

		if ( $PId ) {

			open(DATEI, "> DATEI$$.txt");
			
			while ( defined ( $Data = <$new_sock> ) ) {

				chomp ( $Data );
				print DATEI "Data\n";

			}
			
			close(DATEI);
			exit;

		}

	}

}

close ( $sock );