Select Code to Download

    "-input"
        A reference to a filehandle, or the pathname of a file from wh
+ich
        the invoking script's pod documentation should be read. It def
+aults

my $script_pod = q{

...
};
open my($script_pod_fh), '<', \$script_pod;
pod2usage( ... -input => $script_pod_fh );