Hi!
I am using the following code to try and access an existing POP3 account:
#!/usr/local/bin/perl
#===============================
# How to read email with Net::POP3
# Copyright 2000, Emmie P. Lewis
# Created 02/27/00
#===============================
# This script is designed to show
# how to use Net::POP3 to read your
# email from a Perl script.
#===============================
use strict;
print "Content-type: text/plain", "\n\n";
use Net::POP3;
# This debug flag will print debugging code to your browser, depending on
its value
# Set this to 1 to send debug code to your browser. Set it to 0 to turn it
off.
my $DEBUG = 1;
if($DEBUG)
{
$| = 1;
open(STDERR, ">&STDOUT");
}
# Set this variable to your POP3 server name
my $Server Name = "mail.test.com"; # not the correct name!!!!
# Create a new POP3 object
my $POP3 = Net::POP3->new( $Server Name, Debug => 1 );
# If you can't connect, don't proceed with the rest of the script
die "Couldn't log on to server" unless $POP3;
I have check the server name that I to access. All I get is "Couldn't log
on to server".
Is there something here that I am missing? What else can I do?
I can access the server through Netscape and run Sun's NetMail and access
the account
without any problem.
This is my first attempt to access an POP3 account.
Thanks,
Jerry
