playing with perl script