Perl test client