rewriting client checks in Perl
rewriting client checks in Perl