11 lines
150 B
Perl
11 lines
150 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Tk;
|
||
|
|
|
||
|
|
my $main = MainWindow->new;
|
||
|
|
$main->Button(
|
||
|
|
-text => 'Goodbye, World',
|
||
|
|
-command => \&exit,
|
||
|
|
)->pack;
|
||
|
|
MainLoop();
|