Hi!
I am having problem with this code:
#!/usr1/local/bin/perl
#===============================
# How to read email with Net::POP3
# Copyright 2000, Emmy 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(STEER, ">&STOUT");
}
# Set this variable to your POP3 server name
my $Server Name = "mail.ax.ax.com";
# 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 get the error:
"Couldn't log on to server"
I took address right out of Outlook.
Any ideas in what I am doing wrong?
Thanks,
Jerry
