my %params = %{$config{'template'}};
    print $params{'home_url'};

##</code><code>##

    print $config{'template'}->{'home_url'};

##</code><code>##

   my %config = ParseConfig(\*DATA);

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