my $server = IO::Socket::INET->new(
        LocalPort => $tcpport,
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1,
        #Timeout => 5,
);
die "Could not create socket: $!\n" unless $server;

while (my $client = $server->accept()) {

while(<$client>) {
print $_;
}
close($client);
}