Code:#!/usr/bin/perl use IO::Socket; if(@ARGV != 1){ printf "Port eingeben: "; chomp($Port=<STDIN>); }else{ $Port = @ARGV[0]; } $listen = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $Port, Listen => SOMAXCONN, Reuse => 1) || die("gay?!"); print "Listening on Port $Port\n"; while ($scann0r = $listen->accept()) { printf "Scanned from ".$scann0r->peerhost."\n"; open(file, ">>listen.log"); print file "Auf Port ".$Port." gescannt von ".$scann0r->peerhost."\n\n"; close(file); }