use KPop;

$s = KPop::Open();
if(!$s){
    $err =  KPop::Error();;
    print("Error ($err)\n");
}
#(@foo) = KPop::Stat($s);
#print KPop::Error();;
print("done with stat\n");
#print("Stat: ", join("=", @foo), "\n");
@m = KPop::List($s);
print("List: ", join("\n", @m), "\n");

print("Done\n");