setsockopt can be used immediately after calling socket and before bind, if using the functional socket interface.

With perldoc IO::Socket you can easily find out that all you need to do is passing the Reuse option to your constructor:

my $server = IO::Socket::INET->new(...., Reuse => 1);
[download]

Happy recycling!

-- TMTOWTDI