fix perl get