--- trunk/sender.pl	2005/05/14 18:23:26	12
+++ trunk/sender.pl	2005/05/14 20:54:40	13
@@ -3,7 +3,8 @@
 use strict;
 use Class::DBI::Loader::Pg;
 use Getopt::Long;
-use Data::Dumper;
+use Mail::CheckUser qw(check_email);
+use Email::Valid;
 
 =head1 NAME
 
@@ -101,6 +102,10 @@
 		chomp;
 		next if (/^#/ || /^\s*$/);
 		my ($email, $name) = split(/\s+/,$_, 2);
+		if (! Email::Valid->address($email)) {
+			print "SKIPPING $name <$email>\n";
+			next;
+		}
 		print "# $name <$email>\n";
 		my $this_user = $users->find_or_create({
 			email => $email,