[Perl] Verificando si es root para correr un script

Para empezar me doy cuenta que en la sección de Perl solamente hay aportes de t00ls casi y scripts listos, la idea es ir dando pequeños tips para quienes van empezando en este lenguaje y aprendiendo.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Muchas veces cuando creamos una herramienta, esta debe ser corrido como root, aun comentandolo en el code muchas personas no lo hacen y eso causa errores
Una forma para verificar que el script esta siendo corrido como root , es  de la siguiente manera:

if ($< != 0)
{
    #Accion si no es root
}

Un ejemplo mas sencillo y explicativo es:

if ($< != 0)
{
    print "\n[!] No lo estas corriendo como Root\n";
    exit 1;
}

Buenisimo man!
Muchas gracias por compartir!