GUI Perl

  1. Home
  2. Perl
  3. GUI
  4. Your first PerlTk program
#!/usr/bin/perl
use Tk;
my $mw = MainWindow->new;
$mw->title('Hello World');
$mw->Button(-text => 'Done', -command => sub { exit })->pack;
MainLoop;