I am a little bit confused. Maybe it's my english but don't you want to set up a server?
Well, then you do not have to set PeerAddr and PeerPort but
LocalAddr and LocalPort.
my $listen = IO::Socket::INET->new(
Listen => 5,
LocalAddr => 'localhost',
LocalPort => 8000,
Proto => 'tcp') or die "listen: $!";