I have neither Tcl::Tk nor a Mac, but my usual way to exit a Tk program is

$mw->Button(-text=>"Exit",-command=>sub{$mw->destroy})->pack();
[download]

this causes the MainLoop to return (so you could do some other cleanup before actually exiting).