#!/usr/bin/perl
use XUL::Gui;
$moreThanOne=5;

sub build_list  {
        my $howmany = shift;
        my @list = ();
        push @list, Label(value=>$_) for 0 .. $howmany;
        return @list;
}
@pacientes = build_list $moreThanOne;
display Window title => "Pacientes", width => 640, height => 480, GroupBox (@pacientes);