[ic] MD5 hex problem. Help me please

[roland]

Hi,
I've got problem with MD5 again.
with
-----
UserTag md5hash Interpolate
UserTag md5hash HasEndTag
UserTag md5hash Routine <<EOF
use Digest::MD5;
sub {
my $val = shift;
my $hash = MD5->hexhash($val);
return $hash;
}
EOF
-----
in ic error.log I found:

UserTag 'md5hash' code is not a subroutine reference
> In line 10 of the configuration file 'usertag/md5hash.tag':
> UserTag md5hash Routine <<EOF

Any idea where I wrong?
Thank to everybody

Roland