Progress - Envio mail desde Progress en Unix

Hola:

Me gustaría saber como puedo enviar mails desde progress trabajando con Unix. Tengo entendido que sería mediante el uso de Sockets.

Muchas Gracias.

Yo genero emails dinamicos para los usuarios en una aplicacion, esto te puede servir: Esto es usando PERL.

/* email.p */
/* EL EJEMPLO SOLO MUESTRA LAS PARTES PRINCIPALES DEL CODIGO
POR LO QUE LA DECLARACION DE VARIABLES Y CARGA DE VALORES
EN ESTAS Y ACCESOS A LAS TABLAS ES TAREA TUYA */

/* ARCHIVO PLANO CON EL CUERPO DEL MENSAJE */
OUTPUT TO correo-e.txt.
PUT "ESTE ES MI TEXTO" SKIP(2).
OUTPUT CLOSE.

/* ARCHIVO PARA PERL */
OUTPUT TO cdp-mail.pl.
PUT UNFORM
"#!/usr/bin/perl" SKIP(1)
'system ("txt2html --outfile correo.html correo.txt");' SKIP(1)
"use MIME::Lite;" SKIP(1)
"$msg5 = MIME::Lite->new(" SKIP
"From=>'" cFrom "'," SKIP
"To => '" cTo "'," SKIP
"Cc => '" cCC "'," SKIP
"Subject=>'" cSubject "'," SKIP
"Type=>'multipart/mixed');" SKIP
"$msg5->attach(Type =>'text/html'," SKIP
"Path=> 'correo.html');" SKIP
"MIME::Lite->send('smtp', '10.0.0.1',Timeout=>60);" SKIP
"$msg5->send() or die"
" 'No se pudo enviar mensaje: $!\n'; " SKIP.
OUTPUT CLOSE.

/* CONVIERTO EL ARCHIVO DE SALIDA PARA QUE SE RECONOZCA EN
WINDOWS Y LUEGO LO ENVIO */
OUTPUT TO mail.log. /* ENVIO LOS RESULTADOS A UN LOG */
UNIX SILENT VALUE("ux2dos correo-e.txt > correo.txt").
UNIX SILENT VALUE("perl cdp-mail.pl").
OUTPUT CLOSE.

/* ANALIZO EL LOG PARA ADVERTIR AL USUARIO SI
HUBO ALGUN ERROR */
cLog = "".
INPUT FROM mail.log.
IMPORT cLog.
INPUT CLOSE.

IF cLog NE "" THEN
DO:
MESSAGE "Se ha encontrado una anomalia" SKIP
"en el envio del Correo-e" SKIP(1)
cLog SKIP(1)
"Verifique." VIEW-AS ALERT-BOX WARNING
TITLE "Advertencia".
END.

/* FIN */

Muchisima suerte.