How can I drop privileges in Perl?

I created a server program that will be started as root. After it is started I want to drop privileges to another user. How can I do this securely?

Solution