#!/usr/bin/perl

use strict;
use warnings;
use HTML::FormFu::Constraint::Email;

print (Email::Valid->address('somebody@somewhere.com') ? "yes\n": "no\n");