programming-examples/perl/GUI/Adding button (control) to a window.pl

use Tk;

my $main = MainWindow->new;

$main->Button(-text => 'End',
    -command => [$main => 'destroy']
)->pack;

MainLoop;