GUI Perl

  1. Home
  2. Perl
  3. GUI
  4. Destroy a window in button action
use Tk;
my $main = MainWindow->new;
$main->Button(-text => 'End',
    -command => [$main => 'destroy']
)->pack;
MainLoop;