The POSIX module has what you need.

use POSIX qw( getuid geteuid getpwuid );
[download]

Have you considered sudo instead of suidperl?

Update: Corrected a typo. mortis points out a better way for simple cases.

After Compline,
Zaxo