why this perl script?