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