how to confirm non-root user is a qualified sudo user in a (perl) script?

[Todd C. Miller]

You could do something like:

    system("sudo -S -v </dev/null >/dev/null 2>&1");
    die "$0: You are not authorized!\n" if $?;

 - todd