had the comment out the perl sections, must verify why it stopped working