note Anonymous Monk <p> Pack the script pod in __DATA__ and use <c> -input => \*DATA </c> <c> "-input" A reference to a filehandle, or the pathname of a file from which the invoking script's pod documentation should be read. It defaults </c> <p> Or save the pod in a var <c> my $script_pod = q{ ... }; open my($script_pod_fh), '<', \$script_pod; pod2usage( ... -input => $script_pod_fh ); </c> 1015240 1015240 8