A simple tool in perl to discover how many bytes you need to write EIP