inlined perl script