function checkmail($email){
                $res=ereg("[^-_.]?([0-9\-_.a-zA-Z])*@[0-9a-zA-Z]([-.]?[0-9a-zA-Z])*\.[a-zA-Z]{2,4}$", $email);
        return $res;
};