sub hook_rcpt { my ($self, $transaction, $rcpt) = @_; my $options = $rcpt->notes('options'); my $redirect = $options ? $options->{redirect} : $rcpt->notes('redirect'); return DECLINED unless $redirect; if ($redirect =~ /(.*)\@(.*)/) { return DENY, "Mail address disabled; try <$redirect>"; } else { my ($local, $domain) = $rcpt->address =~ /(.*)\@(.*)/; return DENY, "Mail address disabled; try <" . $local . '@' . $redirect . ">"; } }