my $conf = new Config::General(
       -ConfigFile      => "pler.template",
       -ExtendedAccess  => 1,
       -InterPolateVars => 1,
       -AutoTrue        => 1,
       -StrictObjects   => 0,
   );

   my %config      = $conf->getall;
   my $template    = $conf->obj('template');
   my %params      = %{$config{'template'}};

   for (keys %{$config{template}}) {
           if (/^http/) {
                   $config{template}{home_url} = $_;
                   delete $config{template}{$_};
                   last;
           }
   }
   $Data::Dumper::Sortkeys = \%config;
   print Dumper(\%config);