# -*- Perl -*-

require "iniregexp.pl";

$value = getProfileString('sample.xml', 'sect1', 'key2', 'default');
print "Value=$value\n";
$value = getProfileString('sample.xml', 'sect2', 'key1', 'default');
print "Value=$value\n";
$value = getProfileString('sample.xml', 'sect3', 'key1', 'default');
print "Value=$value\n";