Select Code to Download

my $fh = B2B::BGZF::Reader->new_filehandle( $fn_bgzf );
my $hex = Digest::MD5->new()->addfile($fh)->hexdigest;
print $hex, "\n"; # prints d41d8cd98f00b204e9800998ecf8427e

my $fh = B2B::BGZF::Reader->new_filehandle( $fn_bgzf );
my $d = Digest::MD5->new();
my $buf = '';
$d->add($buf) while ( read $fh, $buf, 4096 );
my $hex = $d->hexdigest;
print $hex, "\n"; # prints the expected sum

my $fh = B2B::BGZF::Reader->new_filehandle( $fn_bgzf );
my $hex = Digest::Perl::MD5->new()->addfile($fh)->hexdigest;
print $hex, "\n"; # prints the expected sum

my $fh = B2B::BGZF::Reader->new_filehandle( $fn_bgzf );
my $hex = Digest::SHA->new(1)->addfile($fh)->hexdigest;
print $hex, "\n"; # prints the expected sum