perl decorator pattern 02