#!/usr/bin/perl -T
use CGI;
my $cgi = new CGI;

print 
  $cgi->header( -charset => 'utf-8' ),
  $cgi->start_html(),
    $cgi->start_form( -name => 'form' ),
      $cgi->table(
        $cgi->Tr(
          $cgi->td(
            $cgi->radio_group(
              -name    => 'testradio',
              -values  => [0..1],
              -labels  => { 0 => 0, 1 => 1 },
              -default => 0
            ),
          ),
          $cgi->td(
            $cgi->submit(
              -name  => 'test',
              -value => '+',
            ),
          ),
        ),
      ),
    $cgi->end_form,
  $cgi->end_html;