testing PERL stuff