learning perl sample

chapter 3