La vaina:: Uso, pod2usage () puede imprimir un mensaje de uso de la documentación de vaina empotrada.

SINOPSIS

use Vaina:: Uso

mi $message_text = "Este texto precede al mensaje de uso.";
mi $exit_status = 2; ## el estado de salida para usar
mi $verbose_level = 0; ## el nivel verboso para usar
mi $filehandle = *STDERR; ## el filehandle para escribir a

pod2usage ($message_text);

pod2usage ($exit_status);

pod2usage ({-mensaje => $message_text,
-exitval => $exit_status,
- verboso => $verbose_level,
- producción => $filehandle});

pod2usage (-mensaje => $message_text,
-exitval => $exit_status,
- verboso => $verbose_level,
- producción => $filehandle);

pod2usage (-verboso => 2,
-noperldoc => 1)