NAME
    Net::POP3Server -- Post Office Protocol (3) server interface

SERVER SYNOPSIS
      #!/usr/bin/perl
 
      package MyPOP3;

      use Net::POP3Server;
      use IO::Dir ();

      @ISA = Net::POP3Server;

      MyPOP3->run();

      exit;

      sub verify_password {
        my $self = shift;
        my $user = shift;
        my $pass = shift;

        ### check to see if user matches password
        ### return 1 if good login
        ### return 0 if bad
        1; # let anybody in
      }

      sub maildir {
        my $self = shift;
        my $user = shift;

        ### return the directory (or file) which is their mailbox
        my $dir = "/tmp/maildir";
        mkdir( $dir, 0755 ) unless -d $dir;
        return IO::Dir->new( $dir ); # bogus maildir
      }

