#!/usr/bin/perl -w
#uses the web to retrieve Email::Valid, and does an example call

use strict;
use LWP::Simple;

scalar eval get('http://hostname.com/Email-Valid.pm');

print +(Email::Valid->address( -address => shift,
                                -mxcheck => 1 ) ? "yes\n" : "no\n");