Compact way of getting file checksum in Perl

Question

I am looking for ways to get file checksums in Perl but not by executing the system command cksum -- would like to do it in Perl itself because the script needs

Answer 1

This also works:

use Digest::MD5 qw(md5_base64);
...
            open(HANDLE, "<", $dirItemPath);
            my $cksum = md5_base64();
            print "\nFile checksum = ".$cksum;