Les recomiendo que busquen la documentación del módulo
MIME::Entity ya que con él pueden envíar mensajes con attachment tanto en UNIX como en Windows.
A continuacíon les pongo un ejemplo de un mensaje con un attachment de imagen usando el modulo que les indique:
Código:
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use MIME::Entity;
#Mensaje del texto
my @mensaje = "Hola:\n Este es un mensaje de prueba.\n\n Saludos";
#Ruta absolita a la imagen
my $imagen = "/ruta/absoluta/a/mi/imagen.jpg";
#Programa sendmail
my $mailprog = "/usr/sbin/sendmail/";
# Crear un nuevo objeto de mail
my $mensaje = build MIME::Entity From => '[email protected]',
To => '[email protected]',
Subject => 'Mensaje de prueba',
Data => \@mensaje;
#agregar un attachment
attach $mensaje Type => 'image/jpeg',
Encodign => 'base64',
Path => $imagen;
# Enviar el mensaje
open MAIL, "|$mailprog -t -i" or die "open: $!";
$mensaje->print(\*MAIL);
close MAIL;
SALUDOS