D:\>perl -le "use Digest::MD5 ('md5_base64'); local $/; open my $fh,shift or die $!; binmode $fh if shift; $file=<$fh>; print qq(Bytes: ),length($file),qq( ),md5_base64($file); " E:\Perl\bin\perl.exe 1
Bytes: 20540 vzpQPjhNDRjGpJccEa4iMw

##</code><code>##

D:\>perl -le "use Digest::MD5 ('md5_base64'); local $/; open my $fh,shift or die $!; binmode $fh if shift; $file=<$fh>; print qq(Bytes: ),length($file),qq( ),md5_base64($file); " E:\Perl\bin\perl.exe
Bytes: 8295 ZFaA5qHXAClj0d1czg6hQA