payment test by perl services