Perlito5 - XS - add a warn implementation