use FindBin ();
use lib "$FindBin::Bin";
use lib "C:\Testing\ITP"; #Simple.pm";
use Simple;
print "Simple.pm => $INC{'Simple.pm'}\n";

# --- OO interface:
$cfg = new Simple('app.ini');
# accessing values:
  $user = $cfg->param('User');
print "\n User Name $user \n";