@echo off
goto %1
goto END

:BASE64
echo Digesting %2
d:\perl\bin\perl.exe -MDigest::MD5 -e "open(FH,shift);print Digest::MD5->new->addfile(FH)->b64digest" %2
goto END

:BIN
d:\perl\bin\perl.exe -MDigest::MD5 -e "open(FH,shift);print Digest::MD5->new->addfile(FH)->digest" %2
goto END

:HEX
d:\perl\bin\perl.exe -MDigest::MD5 -e "open(FH,shift);print Digest::MD5->new->addfile(FH)->hexdigest" %2
goto END

:END
echo. 
echo Bye