Check for root level access in a Perl script

[Mark Knipfer]

How do you check for root level access in Perl 5.6.0 in Mac OS X?

If I run a Perl script at user level, the perl script will inform me that I need to run the script at root level. I am trying to find out how to determine the user level.