Select Code to Download

package Menu;
use strict;
...
}

1;

#!/usr/bin/perl
# test_menu.pl
...

$menu->set_choices(%entries);
$menu->print;

[jason@lappy jason]$ perl test_menu.pl 
$VAR1 = bless( {
...
                 '4' => 'Quit',
                 '_title' => 'Testing menu'
               }, 'Menu' );