create or replace function mymail() returns integer as '

 #!/usr/bin/perl
  my ($sendTo, $Subject, $Message)=(''mymail ( at ) mail ( dot ) de'', ''TESTSubject'',''TESTMSG'');
  use Net::SMTP;
  my $smtp=Net::SMTP->new("localhost");

  $smtp->mail("frommail\ ( at ) mail ( dot ) de");
  $smtp->recipient($sendTo);
  $smtp->data();
  $smtp->datasend("To: $sendTo\n");
  $smtp->datasend("Subject: $Subject\n");
  $smtp->datasend("Content-Type: text/plain;\n\n");
  $smtp->datasend("$Message and somethning TEST else \n");
  $smtp->dataend();
  $smtp->quit();
  return 1;
' language 'plperlu';