SMTP listener og attachment

Jeg har programmeret min egen SMTP mail server, der modtager alle mails på port 80

Hvordan filtrerer jeg attachment fra de indkomne mails inden de benhandles ??

[code start]
  use Net::SMTP::Server;
  use Net::SMTP::Server::Client;

      $server = new Net::SMTP::Server('10.0.0.20', 25) ||
        croak("Unable to handle client connection: $!\n");

      while($conn = $server->accept()) {

        my $client = new Net::SMTP::Server::Client($conn) ||
            croak("Unable to handle client connection: $!\n");

$client->process || next;
...
[code slut]