perl script commenting