$smtp->datasend("Content-Type: application/pdf; name=\"$attachBinaryFile\"\n");
$smtp->datasend("Content-Transfer-Encoding: base64\n");
$smtp->datasend("Content-Disposition: attachment; filename=\"$attachBinaryFile\"\n");
$smtp->datasend("\n");
open(DAT, "$path/$attachBinaryFile") || die("Could not open binary file!");
   binmode(DAT);
   local $/=undef;
   while (read(DAT, $picture, 4096)) {
      $buf = &encode_base64( $picture );
      $smtp->datasend($buf);

   }
close(DAT);
$smtp->datasend("\n");
$smtp->datasend("--$boundary\n");