This is no biggie, but you might try
CGI::Carp since a die in the script now will not pass on to the web client. Also, you're not really using
CGI calls at all. Throw in a
print header; instead of the current header just for good measure :o). Also, there's no need to interpolate in the last line. For more random quote enjoyment, check out
Bone::Easy.
AgentM Systems nor Nasca Enterprises nor
Bone::Easy nor Macperl is responsible for the
comments made by
AgentM. Remember, you can build any logical system with NOR.