Select Code to Download

sub draw {
  my $self = shift;
...
  $self->{subnb_p1} = $self->{_subnb}->add( 'page1', -label => 'Prepar
+e email message' );
  $self->_draw_subnb_p1();
}

sub _draw_subnb_p1 {
  my $self = shift;
...
    );

}

sub _getImportFile {
  my $self = shift;
...
  print Dumper $::cini_global;
  $self->{_mw}->update();
}