use perl my way