Help for this page
my %choices = ( 'File Systems' => \&fs_sub, ... -activebackground => '#CCCCCC', -command => $choices{$_}); }