I'm out of votes for the day, but I'd give a ++ for Mime::Lite, and -- for talking to Sendmail directly.

This should do the trick:

my $msg = MIME::Lite->new(
  From    => 'jc@home.com',
  To      => $recipient,
  Subject => $dirContent,
  Data    => "The file $dirContent is attached.\n"
);
$msg->attach(
  Path    => $dirContent,
  Type    =>'AUTO'
);
$msg->send;
[download]