perl first test