Insecure $ENV{PATH} while running setuid at ./au.pl line 15.