[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...