/usr/share/doc/libmime-lite-perl/examples/nodisp

#!/usr/bin/perl -w

use MIME::Lite;
use strict;

my $msg = MIME::Lite->new(From => "me",
                          To => "you",
                          Subject => "hello",
                          Type    => "multipart/mixed");

my $part = $msg->attach(Type => "text/plain",
                        Path => "/home/eryq/.cshrc",
                        Encoding => '7bit');


$msg->scrub;
$msg->print;

Generated by dwww version 1.15 on Sat May 18 06:13:07 CEST 2024.