Your code...

if ( exists $Subs{$q->param('do')}) {
    $Subs{$q->param('do')}->();
} else {
    $Subs{$q->param('do')}->(); 
}
[download]

...screams that something's wrong in the logic here. It makes sense for the IF part, but if the 'do' parameter points to a non-existence entry in your Subs hash, the THEN part is going to fail out of the script terribly. You probably want THEN to be $Subs{'FrontPage'}->();

This doesn't solve your problem, but this is a glaring error.

---

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain