##
use Config::myTiny;
sub readconfig {
my $self=shift;
my $cfg=$0;
$cfg=~s/\.pl$/.ini/;
my $conf=Config::myTiny->read($cfg);
$conf=Config::myTiny->new() unless $conf;
$self->{config}=$conf;
}
##
##
sub run {
my $self=shift;
$self->readconfig();
# ...
if ($self->{config}->get('options','showonstartup')) {
$self->show_mainwindow();
}
# ...
}