Run perl script with UID to match EUID

This helps avoid an error where GnuPG won't run if the uid does
not match the euid returning error like
"Error: secmem usage: 0/0 bytes in 0/0 blocks"