use Digest qw();
Digest->new('SHA-1')->add(pack 'H*', 'A10000009296F2')->hexdigest
# expression returns '2d0e6efea8f8082c9703cf6636c4a2195c75b7ed'