Added perl script for doing math