You don't need to create more than one server socket if you Reuse

you can:

my $server = new IO::Socket::INET(
Proto => "tcp",
LocalPort => 7001,
Listen => 5,
Reuse => 1) || die "failed to establish socket\n";
[download]

And then accept in the thread.