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;
}