$username = $ARGV[0];
$password = $ARGV[1];
$server = $ARGV[2];
$debug = $ARGV[3];

use lib '.';

use POP3Client;
use Carp::Heavy;

#set up server instance
use Mail::POP3Client;

  $pop = new Mail::POP3Client( USER     => "me",
                   PASSWORD => "mypassword",
                   HOST     => "pop3.do.main" );

$pop = new Mail::POP3Client(USER => $username, 
               
             PASSWORD => $password, 
               
             HOST => $server,
               
             AUTH_MODE => 'PASS',
               
             DEBUG => $debug);

$FromArray = '';
$SubjectArray = '';
$DateArray = '';
@UiDL = -1;

for ($i = 1; $i <= $pop->Count(); $i++) {
    foreach ( $pop->Head( $i ) ) {
      /^(From|Subject|X-Flags|Date):\s+/i and print $_, "\n";
    }
    print "||\n";
  }

$UiString = join("//", @allhead);

$i--;
if ($i <= 0) {
$UiString = "None";
}

$ReturnList = "$i\|\\$UiString";
print $ReturnList;