[jason@lappy jason]$ perl test_menu.pl 
$VAR1 = bless( {
                 '1' => undef,
                 '2' => undef,
                 '3' => undef,
                 '_header' => 'Just testing...',
                 '4' => undef,
                 '_comment' => 'Ok, this is where the comment section would normally go.',
                 '_title' => 'Testing menu'
               }, 'Menu' );