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!