Do you really need to destroy the 'top_f' frame? If you comment the line

$top_f->destroy if Tk::Exists($top_f);
[download]

then the error will vanish.

I presume is a normal error for the way you use destroy, but I don't know enough about the internals of Tk to give you a technical explanation.