Your error will go away if you correct the case:

#my $open = $mw->TopLevel;
my $open = $mw->Toplevel;
[download]

However, at that point you'll discover other problems. I don't know Tk very well, so I can't comment on them.

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)