sub _getImportFile { my $self = shift; # Get the name of the file we are going to import my @types = ( [ "TMPL files", '.tmpl' ], [ "All Files", "*" ], ); $::cini_global->{trickle}->{email_template_file} = $self->{_nb}->getOpenFile( -filetypes => \@types ); if ( $::cini_global->{trickle}->{email_template_file} ) { $self->{_edemail_button}->configure( -state => 'normal' ); } WriteINI( $::CONFIG_FILE, $::cini_global ); print Dumper $::cini_global; $self->{_mw}->update(); }