#!/usr/local/bin/perl
 
use Mail::POP3Client;
use Getopt::Long;

my ($opt_help, $popname, $user, $password );
if (@ARGV > 0)
{
	GetOptions("s=s" => \$popname,
		   "u=s" => \$user,
		   "p=s" => \$password,
		   "help|h|?"      => \$opt_help
		  ) or die "$!\n";
}
else
{
	$opt_help = 1;
}
if (defined $opt_help)
{
	print <<EOF;
Usage: $0 -S <server> -u <user> -p <password> | -{h,help,?}
EOF
	exit;
}

$pop = new Mail::POP3Client( USER     => "$user",
                             PASSWORD => "$password",
                             HOST     => "$popname" );
print "$pop",$pop->Count();
#$pop->Count()
for ($i = 1; $i <= 2 ; $i++) {
#  foreach ( $pop->Head( $i ) ) { 	/^(From|Subject):\s+/i and print $_, "\n";  }
  foreach ( $pop->HeadAndBody($i) ) {  print $_, "\n"; }
}
exit;