print $query->header();
print $query->start_html(-title=>"Submission Added",-head=>meta({-http_equiv=>"refresh",-content=>"2;url=http://baz.perlmonk.org/main.cgi"}));
print $query->end_html;