Sending an Attachment with email using Perl

If you want to send an attachment in your email using Perl, then following script serves the purpose −

use MIME::Lite;
$to = '';
$cc = '';
$from = '';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';
$msg = MIME::Lite-=>new(
   From => $from,
   To => $to,
   Cc => $cc,
   Subject => $subject,
   Type => 'multipart/mixed'
# Add your text message.
   Type => 'text',
   Data => $message
# Specify your file as attachement.
$msg->attach(Type => 'image/gif',
   Path => '/tmp/logo.gif',
   Filename => 'logo.gif',
   Disposition => 'attachment'
print "Email Sent Successfully\n";

You can attach as many files as you like in your email using attach() method.

Updated on: 29-Nov-2019

2K+ Views

Kickstart Your Career

Get certified by completing the course

Get Started