Bueno, lo encontre rapido... Lo pongo por si alguno le sirve o me pasa que pierdo el modelo... jmjmjm
Using perl Syntax Highlighting
use MIME::Lite
my $pass = '1233444';
my $host = 'smtp.popo.es';
$msg = MIME::Lite->new(
Subject =>'Prueba de correo.',
Type =>'multipart/mixed'
);
$msg->attach(
Type =>'TEXT',
Data =>"Here's the GIF file you wanted"
);
$msg->attach(
Type =>'AUTO',
Path =>'c:\adjuntodeprueba.log',
Filename =>'adjuntodeprueba.log',
Disposition => 'attachment'
);
MIME::Lite->send('smtp', $host, Timeout=>60,
AuthUser=>$user, AuthPass=>$pass);
$msg->send;
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4