Select Code to Download

$sth=$dbh->prepare($sql_string) or die_db(...)

...
    die "DB Error" . DBI->errstr;
}

 $self->{"calendar_".$n} = Wx::Calendar->new(.....);

.
...
.

$self->{calendar_9}->GetValue();