Hello All,
Perhaps someone can help me understand what I am doing wrong. I am
trying to write a program that will manipulate my various POP3 mail
boxes on the net. I seem to be having a problem with the get method in
the Net::POP3 module. I am trying to read a message into an array and
then print each message in the array. The print command only seems to
give me the scalar value to the array and the characters in the array.
Here is the test program I have created. Can someone give me a quick
pointer to what I am doing wrong?
Thanks!
Mark
#!/usr/bin/perl
use Net::POP3;
use strict;
my $username = 'foouser';
my $password = 'secret';
my $host = 'pop.foo.com';
print "creating handel\n";
my $h=Net::POP3->new($host);
print "setting username\n";
$h->user($username);
print "setting password\n";
print("there are ", my $last=$h->pass($password), " messages\n\n") ;
my @message = $h->top(1);
while (@message) {
print $_;
}
$h->quit();
exit(0);
