#!/usr/bin/perl

use lib 'C:\MyPerlLib';
use Tk;

my $i = 0;
my $mw = MainWindow->new( -title => "SACL Survey" );
my $pane = $mw->Scrolled(qw/Pane -scrollbars osw/)->grid();

$mw->Label( -text => "... <insert directions here> ..." )->grid();

for (1..30) {
  $pane->Radiobutton(
    -text => "1",
    -value => "1",
    -justify => "left",
    -variable => \${"rb1_q$_"},
  )->grid(
    $pane->Radiobutton(
      -text => "2",
      -value => "2",
      -justify => "left",
      -variable => \${"rb2_q$_"},
    ),
    $pane->Radiobutton(
      -text => "3",
      -value => "3",
      -justify => "left",
      -variable => \${"rb3_q$_"},
    ),
    $pane->Radiobutton(
      -text => "4",
      -value => "4",
      -justify => "left",
      -variable => \${"rb4_q$_"},
    ));
}

MainLoop;