A perl script to solve for x