#!/usr/bin/perl

## adapted from Jo Walsh's code: http://london.pm.org/~jo/foaf.pl.txt
## Digest::SHA1 is at http://search.cpan.org/author/GAAS/Digest-SHA1-2.02/

use strict;
use Digest::SHA1 qw(sha1_hex);

my $string = $ARGV[0];

  if($string eq "")
  {
    $string="mailto:someone\@example.com";
  }

my $encoded = sha1_hex($string);
print "$encoded\n";