[code=perl]sub validate_test{
return sub{
return(undef);
}
}