root/cemail/check_mail.php

<?php 
define('_VALID_MOS',1);
require_once('include/JsHttpRequest.php');
// -------------------------------------------------------------------------
$JsHttpRequest =& new JsHttpRequest('utf-8');

// Параметрами являются name(имя), sname(фамилия), pname(отчество),
// которые могут являться массивом имен или одиночными значениями.
$email = $_REQUEST['email'];
$perl = new Perl();
$perl->eval('use Mail::CheckUser qw(check_email last_check)');
$check = $perl->check_email($email);

$_RESULT = array($check);
?>