use strict;
use IO::Socket;

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

my $new_sock = $sock->accept();
while(<$new_sock>) { 
   print $_;
} 

close($sock);