ну допиши еще что-нить типа:
print_error 'Боты отокуют!!!' if $Form{email} =~ /aol\.com$/;