checkperl