#!/usr/bin/perl
use strict;
use MIME::Base64;
use MIME::QUotedPrint;
use Mail::Sendmail;

my $s=<<eos;
foo, bar, baz, name, email, important note
TRUE,FALSE,TRUE, JoeUser, joeuser1\@there.com, This is the bosses kid
eos

my $req=encode_qp("I need to make a request for this important person!");
my $cn = "Joe User";

my $estr=encode_base64($s);

print $req."\n";
print $estr;

my %msg =(from => 'valid email address',to=>'valid email address',subject =>'test of attachment');

my $boundary= "==========".time()."==========";

$msg{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
$msg{'body'}=<<eob;
--$boundary
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
$req
--$boundary
Content-Type: text/csv
Content-Tranfer-Encoding: base64
Content-Disposition: attachment; filename="account request for $cn.csv"
$estr
--$boundary--
eob

sendmail(%msg) or die "Sending failed Error: $Mail::Sendmail::error";

exit;