sub sSendEmailMIME {
   use Mail::Internet;
   use MIME::Entity;


   my $retval = 0;
   my ($to,$from,$subject,$with,$encoding,$filename) = @_;

   if ( my $msg = MIME::Entity->build(From    => $from,
                                 To      => $to,
                                 Subject => $subject,
                                 Type    => 'text/html',
		              Encoding => "7bit",
                              Path     => "$filename",
                              Filename => "$filename") ) {

                if ( $msg->smtpsend(Host => 'smtp.whatever.net') ) {
                   $msg->auth ('me@whatever.net','123abc');
                   $retval = 1;
                   print "sent\n";
                } else {
                   print "send FAILED: $!\n";
                }
   }
   return $retval;
}