PoC perl script