inside a perl script?