"-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

##</code><code>##

my $script_pod = q{

...

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