Fonction en Perl

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Bonjour,

Ci-dessous le code d'une petite fonction en Perl que je n'arrive pas à
faire fonctionner:

CREATE FUNCTION udf_mail (text, text, text) RETURNS integer AS $$
use MIME::Lite;
my ($dest,$subj,$data) = @_;
$msg = MIME::Lite->new(
From => 'dba(at)garault(dot)com',
To => $dest,
Subject => $subj,
Data => $data
);
$msg->send;
return 1;
$$ LANGUAGE plperlu;

Voici le résultat:

syslog=# select * from udf_mail('sms(at)chezmoi(dot)com', 'Test', 'blah blah
blah');
ERREUR: La valeur du tableau doit commencer avec <<{>> ou avec
l'information de la dimension

Ce code marche très bien depuis Perl mais je tourne en rond en
essayant de le lançer depuis PostgreSQL 8.0.2
L'un d'entre-vous aurait-il une piste à me donner?

Merci d'avance.

- --
Christophe Garault

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (MingW32)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org

iD8DBQFCdj4PJ5Nh3YMYAQsRAsXwAJ97/c6D5P06J2VTqOzMKtN/jpnwmgCfdE5v
JYXOu4N5pcglS0ng8AXY4hI=
=AFXu
-----END PGP SIGNATURE-----