modern perl exercises