6 use Data::Dump qw(dump);
9 use RFID::Biblio::Reader;
10 use RFID::Biblio::RFID501;
18 'reader=s', => \$reader,
22 my $rfid = RFID::Biblio::Reader->new( $reader );
23 $RFID::Biblio::debug = $debug;
29 , uc unpack('H2', $rfid->afi($tag))
31 , dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )
37 my @visible = $rfid->tags(
40 print localtime()." enter ", tag($tag);
45 print localtime()." leave ", tag($tag);
49 warn localtime()." visible: ",join(' ',@visible),"\n";