Playing with perl.