|
#!/usr/bin/perl -w
use Data::Dumper;
use LWP::DebugFile ('+');
use WWW::Mechanize::SpamCop;
$s = WWW::Mechanize::SpamCop->new(
login => 'MY_SPAMCOP_EMAIL_ADDRESS',
passwd => 'MY_SPAMCOP_PASSWORD'
);
my @result = $s->report_all;
print "Reported spams: ".$result[0]."\n";
print "Dropped spams: ".$result[1];
print "\n\n";
|
