pipe that through an MD5 or SHA1

.. or even the brand new Skein algorithm from Schneier et al. available as Digest::Skein on CPAN:

use strict;
use warnings;

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

__END__
$ perl -wl skein.pl
9b575b4eb237749e706e81f54ac35fdcefff522297161770b8a2c3457c317a4d
[download]