#!/usr/bin/perl 

use strict ;
use warnings ;




require Digest ;

my $digest ;
eval { $digest = Digest->new( 'Whirlpool' ) ; } ;
$digest->add( '' ) ;
print $digest->hexdigest(  ) . "\n" ;
