my $script_pod = q{

...

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