use strict;
use warnings;
use Tk;

my $main = MainWindow->new ();
$main->Button (-text => "Close", -command => sub{$main->destroy ();})->pack();
MainLoop;

$main = MainWindow->new ();
$main->Button (-text => "Close too", -command => sub{$main->destroy ();})->pack();
MainLoop;