use MIME::Lite;
use Email::Sender::Transport::SMTP;
$to= 'emartins@ecnex.com';
$cc= 'emartins.ecnex@gmail.com';
$from='emartins@ecnex.com';
$subject='Test mail';
#$message='Esto es una prueba de mail';
$message=(
	'Testing: enviando arrays-mails en perl
	y archivos zip..
	...gato.	'
);
$msg=MIME::Lite->new(
	From	=>$from,
	To	=>$to,
	Cc	=>$cc,
	Subject =>$subject,
	Data    =>$message
);
$msg->attach(Type	=>'aplication/zip',
	     Path	=>'E:\Documents and Settings\Esteban\mi_perl\saraza.zip',
	     Filename	=>'saraza.zip',
	     Disposition =>'attachment'
);
$msg->send('smtp','mail.ecnex.com',AuthUser=>'emartins@ecnex.com',AuthPass=>'passwd');
print "Email enviado\n";