Pack the script pod in __DATA__ and use  -input => \*DATA

    "-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
[download]

Or save the pod in a var

my $script_pod = q{

...

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