use POSIX qw/setuid setsid/;
BEGIN {
    setuid scalar getpwnam 'toadi' or die $!;
}