my $message = MIME::Lite->build (
   From	=>'someemail,
   To=>'anotheremail,
   Subject=>'somesubject',
   Type	=>'multipart/alternative'
  );
  if ('i have a attachment') {
    $message->replace(Type	=>	'multipart/mixed');
    $message->attach(
	Type=> 'AUTO',
        Path=> $upload_file,
        Filename=>$basename,
        Disposition => 'attachment'
     );
   }
   $message->attach(Type=> 'TEXT',
                    Data=> $text
                    );
   $message->attach(Type=> 'text/html',
                    Data=> $html
                    );
   $message->send('smtp','000.000.000.000',Debug=>1,Timeout=>60,Port=>26);