Add '(void)'  to fix perl.c unused-value warning message