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();