perl project final draft