use Win32;
use Win32::OLE;
use Win32::OLE::Variant;

## Creating the 'Rdr' object - Ok

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