use Text::CSV_XS;
use CGI;
use Carp;
use Encode;
use vars qw($VERSION);
my %mail = (
To => $to,
From => $from,
Subject => $subject,
Subject => encode('utf8', $subject ),
Message => $message
Message => encode('utf8', $message )
);
sendmail(%mail) or carp 'mail not sent:' . $Mail::Sendmail::error;
} else {
-