6 lines
153 B
Perl
6 lines
153 B
Perl
|
#!/usr/bin/perl
|
||
|
use Tk;
|
||
|
my $mw = MainWindow->new;
|
||
|
$mw->title('Hello World');
|
||
|
$mw->Button(-text => 'Done', -command => sub { exit })->pack;
|
||
|
MainLoop;
|