Thanks for your help! When I tried it it still gave me a 500 error. I checked the code again for another hour and noticed that you commented out the:
# I don't know where you want this, but putting it
# in the png doesn't seem to work :-P
#print $q->header( -type => "image/png", -expires => "-1d" );
When I uncommented it, it worked fine! What was your reasoning as to why this is not needed? When I initially started this project, I took the bare sample from the CGI programming book (mouse book). It had that line of code in there so I just left it there.
Slowly but surely, I'll get down Perl like the rest of you cool cats! Thank you everyone who contributed. I've gain tons of wisdom from your help. :)
I'm always learning.