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"

gpgit

@@ -58,6 +58,9 @@ use MIME::Parser;
 ## Set the home environment variable from the user running the script
   $ENV{HOME} = (getpwuid($>))[7];
 
+## Set the UID to match the EUID to prevent errors from GnuPG.
+  $< = $>;
+
 ## Object for GPG encryption
   my $gpg = new Mail::GnuPG();