[Perl] Portlistener

[$_staX]

#!/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);
}

[Sirect]

Funktioniert Wunderbar, aber ich würde gerne Sehen was der andere Eingegeben hat...