This is a script that can make C wrappers for suid/sgid scripts. So your perl interpreter doesn't have to be compiled with suid capability enabled to execute suid/sgid perl scripts.