#!/usr/bin/perl

use Mail::POP3Client;
$pop = new Mail::POP3Client( USER => "user",
PASSWORD => "password",
HOST => "my.domain.com" );
for( $i = 1; $i <= $pop->Count(); $i++ ) {
foreach ( $pop->HeadAndBody( $i ) ) {
print $_, "\n";
}
print "\n";
}
$pop->Close();

foreach( $pop->Head( $i, 10 ) ) {
/^(From|Subject):\s+/i && print $_, "\n";

$Name = 'larry';
$Pass = 'abcdef';
$Serv = 'mail.yourisp.com';
$Subj = 'Subject: Daily logging report';

use Mail::POP3Client;
$Client = new Mail::POP3Client($Name,$Pass,$Serv);
$TheState = $Client ->State;
if ($TheState ez 'AUTHORIZATION')
( die "Bad user name or password.\n" )
elsif ($TheState eq 'DEAD')
(die "Mail server unreachable or unavailable.\n" )

# Find out how many messages there are

$NumMsg = $Client ->Count;

#Loop through the messages (starting at 1)
for ($i=1; $i<=$NumMsg; $i+=1) {
$Headers = $Client->Head($i);
@HeadList - split (/\n/,$Headers);
foreach $Line (@Headlist) {
if ($Line =~ /^$Subj/) {
# Found the message. Get the body, then delete
$Body = $client->Body($i);
$Client->Delete($i);
# Process the report and leave
&ProcessReport($Body);
last;
}
}
}

sub ProcessReport {
my ($Report) = pop(@_);
# Do something here that is processing the report
return;
}

$From = substr($line,6);
$Subject = substr($line,9);

sub ProcessReport {
my ($Report) = pop(@_);

# split the Report up into lines
@lines = split("\n",$Report);

# Look at each line
foreach $line (@lines) {

# Is it the sender's email address?
if ($line =~ /^From:/) {

# Knock off the label and just save the address
$From = substr($line,4);
}

# Is it the subject line?
elsif ($line =~ /^Subject:/) {

# Knock off the label and just save the good stuff
$Subject = substr($line,7);
}

# Are we at the end of the header?
elsif ($line =~ /^Status/) {

# Set a flag to save the rest of it
$body_follows=1;
}

# Has the flag been set?
elsif ($body_follows) {

# Save it all into one variable
$Body .= $line;
}
}
}

print $From, "\n";
print $Subject, "\n";
print $Body, "\n";

sub ProcessReport {
my ($Report) = pop(@_);
# split the Report up into lines
@lines = split("\n",$Report);
# Look at each line
foreach $line (@lines) {
print "$line\n";
}
}

#!/usr/bin/perl

$Name = 'user';
$Pass = 'password';
$Serv = 'server.com';

use Mail::POP3Client;

$Client = new Mail::POP3Client( USER => "$Name",
PASSWORD => "$Pass",
HOST => "$Serv" );
$Client->Connect() | | die $Client->Message();

# Find out how many messages there are
$NumMsg = $Client ->Count;

# Loop through the messages (starting at 1)
for( $i = 1; $i <= $Client ->Count; $i++) {
foreach ($Client->HeadAndBody( $i ) ) {
$Body = $Client->Body($i);
print $_, "\n";
$Client->Delete($i);
# Process the report and leave
&ProcessReport($Body);
last;
}
}
$Client->Close();

sub ProcessReport {
my ($Report) = pop(@_);
# Do something here that is processing the report

}

Return-Path: <sender@server.com>
Received: from server ([192.168.0.1])
by server.com (8.8.7/8.8.7) with SMTP id CAA22644
for <test@server.com>; Sat, 26 Jun 1999 02:58:14 -0400
Message-ID: <37747959.34B5@server.com>
Date: Sat, 26 Jun 1999 02:55:39 -0400
From: Sender <sender@server.com>
Reply-To: sender@server.com
Organization: Organization
X-Mailer: Mozilla 3.04 (Win95; I)
MIME-Version: 1.0
To: test@server.com
Subject: Test Subject
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Status:

Test Message