[Perl] Portlistener

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);
}

---

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