# use strict, warnings and diagnostics 

# retrieve the pop3 messages
eval
{
	print $page -> p(qw(We are going to retrieve the emails here since you told us to do that.)), "\n";
	# open a connection
	my $pop = Net::POP3->new(Host=>"pop.gmail.com:995") 
		or die("Can't connect to the POP3 server: $! \n");
	# log in
	defined($pop->apop('myaccount@gmail.com', 'mypass'))
		or die("Couldn't authenticate: $! \n");
	# get the message list
	my $messageList = $pop->list()
		or die("Couldn't retreive message list: $! \n");
	# for each of the messages
	foreach my $msgid (keys %$messageList)
	{
		my $message = $pop->get($msgid);
		if(defined($message))
		{
			print $message;
		}
		else
		{
			warn ("Couldn't retreive message.  msgId# $msgid");
			next;
		}
	}		
};
if ($@)
{
	print "Error occured $@ \n";
}