my $Status;
my $Is_In = Variant(VT_BYREF | VT_VARIANT, 0);
while (1) {
    $Status = $Rdr->IsCardIn($Is_In);
    print "Is Card In:$Status ; IsCardIn:$Is_In\n";
    sleep(1);
}