Sort perldiag