my $sock = new IO::Socket::INET (LocalPort => 'port',Proto => 'tcp',Listen => 1,Reuse=>1);
die "Could not create socket: $!\n" unless $sock;
    my $new_sock = $sock->accept();
while(<$new_sock>) {
    print $_;
}
close($sock);