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;