if available, you should run setuid processing. perl's even built to handle it... see the special variables

$< (real user id),
$> (effective user id),
$( (real group id),
$) (effective group id)
[download]

i've run a lot of scripts under setuid. it's secure, and it works.

~Particle