Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$main->bind('<Return>' => sub {$main->destroy});
MainLoop;
die "$name";
  2. or download this
    #!/usr/bin/perl

...
$main->bind('<Return>' => sub {$main->destroy});
MainLoop;
die "$name";