my $msg = Sources::Mime->build(
   From   => $mime_from,
   To   => $mime_to,
   Cc   => $mime_cc,
   Bcc   => $mime_bcc,
   Subject   => $subject,
   Type   => "$type; charset=\"$charset\"",
   Encoding   => 'quoted-printable',
   Data   => $text);

my $mime_types = Sources::Global::load_inifile('./mime.types');

foreach my $fileattach (@attachs)
{
   my $nname = Sources::Global::get_filename($fileattach);
   $nname =~ s!-....$!!;
   my $ext = lc(Sources::Global::get_fileextension($nname));
   my $type = $mime_types->{$ext} || 'Unknown';

   $msg->attach(
      Type   => $type,
      Path   => $fileattach,
      Filename   => $nname,
      Disposition   => 'attachment');
}