sub is_spam {
        my $mail = shift;
        return 1;
    }