basic perl tests