Beginning to reverse engineer perl script.