As per request, I've put the code up on my scratchpad. Basically, the only reason I need to keep a few of the named variables is so I can pull values from them (for example, I pull data from the Entry, and Listbox widgets). There might be a flaw in my design. If so, please point it out. I'm always looking for more tricks to better my Perl skills (and general programming skills for that matter).

Theodore Charles III
Network Administrator
Los Angeles Senior High
4650 W. Olympic Blvd.
Los Angeles, CA 90019
323-937-3210 ext. 224
email->secon_kun@hotmail.com