sample perl file to test git on new branch