#!/usr/bin/perl use Mail::POP3Client; $pop = new Mail::POP3Client( USER => "zentara", PASSWORD => "bigsecret", HOST => "mail.whereever.com" ); for( $i = 1; $i <= $pop->Count(); $i++ ) { foreach( $pop->Head( $i ) ) { /^(From|Subject):\s+/i && print $_, "\n"; } } $pop->Close();
In reply to Re: getting list of all POP3 messages
by zentara
in thread getting list of all POP3 messages
by KZ
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |