Just doing something with perl