a perl example project