sub MY::manifypods {
    
    # cut and paste the manifypods code from MM_Unix here
    # in its entirity

    # pod2man is being called in the ugly looking lines that start

        $pod2man_exe = "-S pod2man"; # <<-- edit this
    }
    push @m,
    qq[POD2MAN_EXE = pod2man_exe\n],
    qq[POD2MAN = \${PERL} -we '.....
    # what this horrid looking code is doing is building
    # up a series of command line perl scripts which then
    # get executed, so by changing  the value of $pod2man_exe
    # you call pod2man with the appropriate flags which
    # should do the trick (I think :-)

    # finish with the join just like in MM_Unix.pm

  return join'', @m;  # this returns the string
}