How to use add_bits() function in Digest::SHA

digest_sample.pl

use strict;
use warnings;

use Digest::SHA;

# Using sha256 algorism
our $ctx = Digest::SHA->new(256);

sub bit_to_digest {
    my ($bits) = @_;

    printf "Origin: %s\n", $bits;
    printf "Digest: %s\n", $ctx->add_bits($bits)->hexdigest;
    printf "Digest: %s\n", $ctx->add_bits(pack('B*', $bits), length($bits))->hexdigest;
}

sub main {
    bit_to_digest($ARGV[0]);
}

# Usage:
#  $ perl digest_sample.pl 111100001010
#
main() if (__FILE__ eq $0);

__END__