open FILE, "anyfile.ini"||die "file open failed\n";
   my %inihash=();
   while (my $line = <FILE>) {
          $line =~ tr/"//d;
             (my $key, my $value)=split(/=/,$line);
               $inihash{$key}=$value;
    };
   print "$inihash{'$xmldir'}";
   print "$inihash{'$cvs'}";
   print "$inihash{'%name'}";