Changes in perl script