I also found CPAU which is a replacement for the "runas" command. It works just fine. However, I was hoping to figure this out in Perl for future reference.