#!/usr/bin/env perl

use strict;
use warnings;
use Email::Valid::Loose;
use Digest::SHA1 qw(sha1_hex);

my $mailaddress = shift;
my $str = 'mailto:' . $mailaddress;
print Email::Valid::Loose->address($mailaddress) ?
  sha1_hex($str) : "invalid email address: $mailaddress";
print "\n";