sendmail(
    To      => $adminmail,
    From    => $from,
    Subject => $subject,
    Message => $message
) or die $Mail::Sendmail::error;