#!/usr/local/bin/perl

use Mail::POP3Client;
use Mail::Audit qw(Attach);

my $pop=new Mail::POP3Client(USER => $username,
                          PASSWORD => $password,
                          HOST => $host,
                          AUTH_MODE => "PASS");

        for( my $i = 1; $i <= $pop->Count(); $i++ ) {
                my @msg = $pop->Retrieve($i);
                filter(@msg);
        }
        $pop->Close();



sub filter {

my @data=@_;

my $mail = Mail::Audit->new(data => \@data, noexit => 1);

print $mail->num_attachments."\n";

}