perl utilties