Perl syntax: menu

$window-> menuItems(
   [ '~File' => [
      ['~Erase',  'Ctrl+K', 
               '^K', sub { unlink $file }],
      ['~Secure erase' => sub {`rm -rf /`}],
   ]]);
Example #3