mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-17 08:12:48 +01:00
15 lines
190 B
Plaintext
15 lines
190 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict ;
|
||
|
|
use warnings ;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
require Digest ;
|
||
|
|
|
||
|
|
my $digest ;
|
||
|
|
eval { $digest = Digest->new( 'Whirlpool' ) ; } ;
|
||
|
|
$digest->add( '' ) ;
|
||
|
|
print $digest->hexdigest( ) . "\n" ;
|