filter_sender Again, optional sub filter_sender ($$$$) { my ($sender, $ip, $hostname, $helo) = @_; if ($sender =~ /^?$/i) { return (0, 'Sorry; spammer@badguy.com is blacklisted.'); } return (1, "ok"); }