use Mail::Sendmail; 
      %mail = ( To      => "$sm_recipient",
                From    => "$sm_from",
				Subject => "$sm_subject",
                Message => "$sm_message"
               );
      sendmail(%mail) or &nomail;
1;