15 lines
190 B
Perl
Executable File
15 lines
190 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict ;
|
|
use warnings ;
|
|
|
|
|
|
|
|
|
|
require Digest ;
|
|
|
|
my $digest ;
|
|
eval { $digest = Digest->new( 'Whirlpool' ) ; } ;
|
|
$digest->add( '' ) ;
|
|
print $digest->hexdigest( ) . "\n" ;
|