#!/usr/local/bin/perl

close(STDOUT); close(STDERR);

exit 0 unless length $ARGV[0];

use CPANPLUS::Backend; my $cp = new CPANPLUS::Backend;

exit 1 if grep { /^$ARGV[0]$/ } map { eval { $_->email } } values %{$cp->author_tree};
exit 0;