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;
26 my @visible = $rfid->tags;
27 foreach my $tag ( @visible ) {
30 , uc unpack('H2', $rfid->afi($tag))
32 , dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )