-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
This will login to a pop account, then download a message. You need to
give it the message number.. login() will return the number of message
in your inbox.
use Net::POP3;
$pop = Net::POP3->new('pop.mail.yahoo.com');
$numofmsgs = $pop->login('USERNAME', 'PASSWORD');
print "$numofmsgs\n";
$messagedownloaded = $pop->get(MESSAGE NUMBER);
open (FILE, ">>C:\\data.txt");
print FILE "@$messagedownloaded";
-----BEGIN PGP SIGNATURE-----
Version: PGP Personal Privacy 6.0.2
iQA/AwUBPFmtxfZdLHTSzxapEQI3ugCfbqPtbL5OAemPktXkLTaACG7HocUAoJYB
/zPIIahJjvLa6xqF8FqnTTOq
=KaSh
-----END PGP SIGNATURE-----
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.311 / Virus Database: 172 - Release Date: 12/27/01
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/listinfo/activeperl
