@echo off
  *setlocal
  *unalias *
  ::on error goto done
  on break goto done

if "%1"=="" goto USAGE
if not exist %1 goto PATH_NOT_FOUND

cdd %1
set d="%@full[%1]"
echo.
echo Processing directory %d
for %f in (*.pm *.pl) do (
    call podchecker.bat %f
rem    call pod2html.bat %f > %f.html
    call pod2html.bat %f > "%@LEFT[%@eval[%@LEN[%f]-2],%f]html"
    describe "%@LEFT[%@eval[%@LEN[%f]-2],%f]html" "POD documentation for %f"
    )

del /E /Q /Y *.bak pod2*.x~~
del "%@filename[%d].zip"
pkzip /add /max "%@filename[%d].zip" *.*

quit

:PATH_NOT_FOUND
echo.
echo Unable to find path: %1

:USAGE
echo.
echo usage: %0 path
echo.
echo checks and builds POD documentation for all perl scripts
echo and modules in the specified directory.
echo.
quit

:done