some perl samples while studying modern perl...