#!/usr/bin/perl
# sendattach.pl: Envío de mail con attachments

# Nos forzamos a ser prolijos
use strict;
use warnings;

# Módulo que hace la magia
use MIME::Entity;

# Recibo los argumentos de línea de comando
die "Uso: $0 <email> <subject> <archivo1> <archivo2> ...\n"
	unless (@ARGV >= 3);
my($email, $subject, @files) = @ARGV;

# Compongo el cuerpo vacío
my($mail) = MIME::Entity->build(
	To => $email,
	Type => "text/plain",
	Subject => $subject,
	Data => "");

# Agrego cada archivo
foreach(@files) {
	$mail->attach(
		Disposition => "attachment",
		Type => "application/octet-stream",
		Path => $_)
		or die "Problemas con $_";
}

# Envío el mail listo
$mail->smtpsend();
