Fix cperl failing test