use strict;
use CGI;

my $q = new CGI();

print $q->header();
print $q->start_html(-title  => 'Test HTML');

my $namescript = 'http://' . $ENV{'SERVER_NAME'} . (($ENV{'SERVER_PORT'} != 80) ? ":$ENV{'SERVER_PORT'}" : "") . $ENV{'SCRIPT_NAME'};

print $q->startform("POST", $namescript);

my %presets = (
     'preset_appleid'  => 'APPLEID',
     'preset_default'  =>'DEFAULT',
     'preset_ntlm'     =>'NLTM',
     'preset_security' => 'SECURITYQ',
     'preset_web16'    => 'Web Site (16 Chars)',
     'preset_web32'    => 'Web Site (32 Chars)',
     'preset_wifi'     => 'WIFI',
     'preset_xkcd'     => 'XKCD',
);

foreach my $preset ( keys %presets ) {
    print $q->button(
                       -name   => $preset,
                       -id     => $preset,
                       -value  => $presets{$preset},
                    );
}

print $q->submit(-value => 'SUBMIT');
print $q->endform;
print $q->end_html();