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"
Use explict form of specifing $REAL_USER_ID and $EFFECTIVE_USER_ID
Dovecot can be setup to run as a virtual user, for example 'vmail'.
Sieve scripts are then run with the UID of root but the EUID of
the vmail user. GnuPG will not run if the EUID does not match the
UID as a measure to prevent the system letting it keep root privs.
http://lists.gnupg.org/pipermail/gnupg-users/2006-August/029109.html
Add 'use English' for special variable names
Merge pull request #1 from DonnchaC/master

Run perl script with UID to match EUID