Tk::exit - End the application
use Tk qw(exit);
Terminate the process, returning returnCode to the system as the exit status. If returnCode isn't specified then it defaults to 0.
exit from code invoked via a Tk callback then this Tk version of
exit cleans up more reliably than using the perl