Perl and setuid scripts