The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[%# menu: generate sequence of buttons with optional left/right/select
  # ARGS:
  #	buttons = [ # list of buttons
  #	    { link => 'page1.html', text => 'First Page' },
  #	    { link => 'page2.html', text => 'Second Page' },
  #	      ...
  #	],
  #	select	    # item to select in range 1 to n (0: none)
  #	left	    # add left arrowhead to first item
  #	right	    # add right arrowhead to last item
-%]
[%  INCLUDE html/button 
	link   = b.link
	text   = b.text
	left   = loop.first ? left  : 0
	right  = loop.last  ? right : 0
	select = (select == loop.count) ? select : 0
    FOREACH b = buttons 
-%]