use warnings;
require Getopt::Long;
-require PerlMail::Contacts;
+require PerlMail::Contacts::9000;
require Mail::Address;
"iscompany"=>($record{"Name"} && $record{"Company"} && $record{"Name"} eq $record{"Company"}),
}));
} @record);
- } PerlMail::Contacts->in($_));
+ } PerlMail::Contacts::9000->in($_));
my @nicked=map({
my $data=$_;
my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));