%mail = ( To   => '$n_mail',
          From => 'foo@foo.com.br',
          Message  => "BlahBlahBlah\n\nBlahBlah\n\n");
          
          sendmail(%mail) or die $Mail::Sendmail::error;