for (@ARGV) {
        my $x = MainWindow->new;
        $x->bind("<Key-Escape>", sub { $x->destroy });
}