What happens when you run this as root:

use English;

system('id');

$EGID=500;
$GID=500;
$EUID=500;
$UID=500;

system('id');
[download]

(replacing 500 with an appropriate uid/gid).