fix perl cross get