mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-12 15:34:52 +02:00
14 lines
190 B
Perl
Executable file
14 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" ;
|