/usr/bin/suidperl -w -T
...
$ENV{PATH} = ''
...
# line 446:
system ("/usr/sbin/useradd", "-g", $group, "-s", $home$user", "-s", $shell, "-p", $pass, $user); 
...