How can I check for root when a user runs a perl script

I am working a script to generate a config file that I want to store in /etc/solignis. When I run the script as a limited user it does not allow me to create the directory or write the file. So the script w开发者_StackOverflowill have to run as sudo or a root user, how can I check if the user is a root or atleast using sudo?

---

If $> (aka $EFFECTIVE_USER_ID if you use English) is non-zero, then the user is not root.

---

XAppSoftware: How to check for root user has a solution:

my $login = (getpwuid $>);
die "must run as root" if $login ne 'root';

---

I had the same question and ended up using the results of all three previous answers:

die "Must run as root\n" if $> != 0;

---

if ( $< != 0 ) {
print "This script must be run as root\n"; 
exit (0);
}