#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
my $new_socket;
$SIG{INT} = \&ak;
sub ak() {
	die("Killed!");
}
my $socket = new IO::Socket::INET(
	LocalHost => "localhost",
	LocalPort => 9999,
	Proto 		=> 'tcp',
	Listen 		=> SOMAXCONN,
	Reuse 		=> 1
) || die("Kann den Socket nicht initiallisieren! $!");

while(1){
	$new_socket = $socket->accept(); 
	print "Angreifer hat sich eingeloggt!";
	while(<$new_socket>) { 
		print $_;  
	}  
	close($socket);
}