My standard MIME::Lite application example

mime-lite.pl

#!/usr/bin/perl -w
use strict;
use diagnostics;
use MIME::Lite;
use File::Basename;

my $sender      = 'Alice <alice@thisdomain.invalid>';
my $recipient   = 'Bob <bob@otherdomain.invalid>';
my $file        = "/home/alice/info.pdf";
my $smtphost    = "127.0.0.1 25";
my $subject     = "Demo Attachment";

my $coverletter = <<EOF;
Dear sirs,

plz find the desired information attached.
EOF

MIME::Lite->send('smtp', $smtphost, Timeout=>5);

my $msg = MIME::Lite->new(
        From            => $sender,
        To              => $recipient,
        Subject         => $subject,
        Type            => 'multipart/mixed'
        );

$msg->attach(
        Type            => 'TEXT',
        Data            => $coverletter
        );

$msg->attach(
        Type            => 'AUTO',
        Path            => $file,
        Filename        => basename($file),
        Disposition     => 'attachment'
        );

$msg->send();

# To send through the local MTA for enqueueing the mail, e.g. sendmal or qmail-inject: 
 
# MIME::Lite->send('sendmail', "/usr/lib/sendmail -t -oi "); # (Postfix)
# MIME::Lite->send('sendmail', "/var/qmail/bin/qmail-inject -f $absender $emfpaenger"); # (Qmail)