use strict;
use warnings;

use Digest::Skein; 
print Digest::Skein->new(256)->add('foo bar baz')->hexdigest;

__END__
$ perl -wl skein.pl
9b575b4eb237749e706e81f54ac35fdcefff522297161770b8a2c3457c317a4d