Das Schalter Widget
	#!/usr/bin/perl use strict; use warnings; use Tk; my $mw = MainWindow->new(); $mw->Button(-text    => 'Klick mich',             -command => sub { $mw->destroy() },            )      ->pack(); MainLoop();