#!/usr/bin/perl

######################################
#
#  In order to bind to port 110
#  this script will need to be run as 
#  root.  After connecting to the
#  default operation is to become 
#  the "nobody" user and "nobody"
#  group.
#
######################################


package popd;

use vars qw(@ISA);
use strict;
use Net::POP3Server;

@ISA = qw(Net::POP3Server);

popd->run( port => 110 );
exit;

