That must be just a snippet of the WebSecretary program. It's hard to tell where %siteInfo comes from, but it appears that you could pass the e-mail address to handleSite() and change the parameter parsing code:

my $email = shift;
$email  ||= $siteinfo{Email};
[download]