if (!(ref($sender) and ($sender < 0)) {
    die "Sender error: $sender, $Mail::Sender::Error!\n";
}