Simple perl script that answers very specific questions