Destroy the main window:

use strict;
use warnings;

use Tk;
my $mw = MainWindow->new;
$mw->Button (-text => "Hello World!", -command => sub {$mw->destroy()}
+)->pack;
MainLoop;

print "done with the GUI\n";
[download]

Prints:

done with the GUI
[download]