/usr/share/doc/libmail-box-perl/examples/send.pl is in libmail-box-perl 2.105-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | #!/usr/bin/perl
# Demonstration on sending simple messages.
#
# This code can be used and modified without restriction.
# Mark Overmeer, <mailbox@overmeer.net>, 20 nov 2001
# 16 jan 2003, added some options
use warnings;
use strict;
use lib '..', '.';
use Mail::Box;
#
# Get the command line arguments.
#
die "Usage: $0 email-address\n"
unless @ARGV==1;
my $email = shift @ARGV;
#
# Create a simple message
#
my $message = Mail::Message->build
( From => 'me@localhost.com'
, To => $email
, Subject => 'A sunny day'
# , Cc => 'NINJA <ninja>, Mark Overmeer <markov>'
, data => <<'TEXT'
This is an automatically generated message.
I hope you have a nice day.
TEXT
);
#
# Transmit the message, leaving the decission how over to the
# Mail::Transmit package.
#
warn "Sending returned error $!\n"
unless $message->send;
$message->send
( via => 'sendmail' # you can do even without this line
# , trace => 'NOTICE'
# , executable => 'C:\lib\sendmail.exe'
# , debug_smtp => 1
# , timeout => 300
# , retry => 5
);
|