my $label = $frame->Label('Name' => 'title',
                            -text => 'Tk Names Tutorial');
  my $dialog = $top->DialogBox(-title => 'Generated Names',
                               -buttons => [ 'OK' ]);
  my $page = $notebook->add('Bill', -label => 'Billing');