Playing with perl programs