error checking for tying the aliases file
[p5sagit/Promulger.git] / script / make_message
CommitLineData
44fd0890 1#!/usr/bin/perl
2use strict;
3use warnings;
4
5use Email::MIME;
6use File::Slurp 'read_file';
7
8my ($from, $to, $subject) = @ARGV;
9my $body = read_file \*STDIN;
10
11
12my $email = Email::MIME->create(
13 header => [
14 From => $from,
15 To => $to,
16 Subject => $subject,
17 ],
18 body => $body,
19);
20print $email->as_string;