Bitwise comparision of two directories(files) in Perl - perl

Question

I am trying to achieve the follwing using perl
A script that performs bitwise comparison of files from two directories
(the directory names are passed as arguments to the script in the command line).
The script should read all files from the first directory and all subdirectories, and
compare them to the corresponding files (e.g. files with the same names) in the
second directory.
The result of the script - (PASSED or FAILED) is formed according to:
The result is FAILED when at least one file from the first directory is not bitwise
equal to the corresponding file in the second directory or the second directory
has no corresponding file.
Otherwise test is PASSED.
So far I have tried the approach in this thread created by me - Comparing two directories using Perl . After some point I realized I am essentially trying to do simulate "diff -r dir1 dir2" which isn't the goal, How can one perform bitwise comparision operation on two directories?
EDIT: Test Case
/dir1 /dir2
-- file1 -- file1
-- file2 -- file2
-- file3
-- ....
-- ...
---/subDir1
--file1
--file2
file1 of dir1 contains :- foo bar
file1 of dir2 contains :- foo
Result - Fail
file1 of dir1 contains :- foo bar
file1 of dir2 contains :- foo bar
Result - Pass.
The script should essentially extract files with same names present in different directories.

Answer 1

I would do something like this:
Open dir1
Read all filenames into an array
Open dir2
Read all filenames into an array
For any case in which a filename in dir1 matches a filename in dir2 or vice versa, begin compare logic
Use Digest::MD5 here to perform an MD5 comparison of the two files. If even one bit is off, you will get different checksums.
Code example from Digest::MD5...
use Digest::MD5 qw(md5 md5_hex md5_base64);
$digest = md5($data);
$digest = md5_hex($data);
$digest = md5_base64($data);
# OO style
use Digest::MD5;
$ctx = Digest::MD5->new;
$ctx->add($data);
$ctx->addfile(*FILE);
$digest = $ctx->digest;
$digest = $ctx->hexdigest;
$digest = $ctx->b64digest;
Generate an MD5 hash for each file and compare them, then pass or fail accordingly.