package MyMailServer
@ISA = qw()

sub BEGIN

sub new
my ($module, $host, %hash) = @_;
return undef;
return undef;
return $this;

sub DESTROY
my $this = shift;

sub login
my ($this, $user, $password, %hash) = @_;
return $this->{pPOP3}->login($user, $password, %hash);

sub apop
my ($this, $user, $password, %hash) = @_;
return $this->{pPOP3}->apop($user, $password, %hash);

sub quit
my ($this, @a) = @_;
return $this->{pPOP3}->quit(@a);

sub top
my ($this, $msgnum, @a) = @_;
return $this->{pPOP3}->top($msgnum, @a);

sub last
my ($this, @a) = @_;
return $this->{pPOP3}->last(@a);

sub get
my ($this, $msgnum, @a) = @_;
return $this->{pPOP3}->get($msgnum, @a);

sub getfh
my ($this, $msgnum, @a) = @_;
return $this->{pPOP3}->getfh($msgnum, @a);

sub message
my ($this, @a) = @_;
return $this->{pPOP3}->message(@a);

sub uidl
my ($this, $msgnum, @a) = @_;
return $this->{pPOP3}->uidl($msgnum, @a);

sub popstat
my ($this, @a) = @_;
return $this->{pPOP3}->popstat(@a);

sub list
my ($this, $msgnum, @a) = @_;
return $this->{pPOP3}->list($msgnum, @a);

sub reset
my ($this, @a) = @_;
return $this->{pPOP3}->reset(@a);

sub delete
my ($this, $msgnum, @a) = @_;
return $this->{pPOP3}->delete($msgnum, @a);