#!/usr/bin/perl -w

use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);  

my $cgi = new CGI;

my $formular_user = $cgi->param('formular_user');

my @users = ("alf", "leonardo", "rocky");


sub myFunc
{
print $cgy->p('Check!');
}


print $cgi->header(-type        =>'text/html'),
      $cgi->start_html(-title   =>'bsp.cgi - Bereitschaft',
                       -author  =>'Testautor'),
      $cgi->p('Welcher Kontakt hat Bereitschaft:'),
      $cgi->end_html();


print $cgi->start_form(
                -name   => 'users_form'
            ),
            $cgi->radio_group(-name=>'formular_user',
                    -values  => [sort { $a cmp $b }
                    @users],
                -linebreak=>'true',
                -default => "-",
                -onClick=>'myFunc()'
            ),
      $cgi->end_form();