use Email::Valid;
use strict;

sub check {

    my $o = shift;
    my $address = shift;

    print "email $address is ";
    print ($o->address($address) ? '' : 'not');
    print " valid\n";


}

my @address = qw(

		 jim@mail.com
		 jim.@mail.com
		 jim.beam@mail.com
		 .jim@mail.com
		 jim-@mail.com
		 -jim@mail.com

);

my $ev = Email::Valid->new;

check ($ev,$_) for @address;