#!/usr/bin/perl

use Mail::POP3Client;

$loginname = "user@example.com";
$password  = "password";
$POPserver = "pop.example.com";

$pop = new Mail::POP3Client($loginname, $password, $POPserver);
$MessageCount = $pop->Count;

print "Content-type: text/html\n\n";

if ($pop->Count == -1){ 
	 print "Connection Failed";
} else {
	 print "Connected!";		 	 
}