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

Question

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 will have to run as sudo or a root user, how can I check if the user is a root or atleast using sudo?

Answer 1

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

Answer 2

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

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