I think mr_mischief's suggestions are good ones. I have a couple other notes.

• According to the POSIX documentation, getuid is the same as $< and geteuid is the same as $> (see perlvar).
• If you're running as root (uid 0), your failure tests are going to trigger even on success.

kyle@sulaco:~ $ perl -le 'use English;print "uid: $UID, euid: $EUID"'
uid: 501, euid: 501
kyle@sulaco:~ $ sudo perl -le 'use English;print "uid: $UID, euid: $EU
+ID"'
Password:
uid: 0, euid: 0
[download]