open(MAIL, "| $sendmail") or die "Cannot open sendmail: $!";
    print MAIL "To: $admin_mail\n";
    print MAIL "From: $email\n";
    print MAIL "Subject: dfg\n\n";
    print MAIL "asd\n\n";
  close(MAIL);