# 'doze
perl -e "use Digest::MD5('md5_base64');local $/;open $f,'perl.exe'; binmode $f; $dat=<$f>;print md5_base64($dat)"
+QpV/tbZNRzK5aIPqc18tQ

# *nix
perl -le'use Digest::MD5 ("md5_base64"); local $/;open $f, "perl.exe"; binmode $f; $dat=<$f>;print md5_base64($dat);' perl.exe
+QpV/tbZNRzK5aIPqc18tQ

# and the reason I was being lazy and using md5_base64(<FH>)

perl -le'use Digest::MD5 ("md5_base64"); @array=qw(a b c); print md5_base64(@array);'
kAFQmDzST7DWlj99KOF/cg

perl -le'use Digest::MD5 ("md5_base64"); @array=qw(a b c); $array=join "",@array; print md5_base64($array);'
kAFQmDzST7DWlj99KOF/cg

# thought that worked, but then did this...
perl -le'use Digest::MD5 ("md5_base64"); local $/;open $f, "perl.exe"; $data=<$f>;print md5_base64($data);' perl.exe
+QpV/tbZNRzK5aIPqc18tQ

perl -le'use Digest::MD5 ("md5_base64"); local $/;open $f, "perl.exe"; binmode $f; print md5_base64($f);' perl.exe
MzTg3hOPoYjcGlfa8CHjeg