6 use Data::Dump qw(dump);
9 use RFID::Biblio::Readers;
10 use RFID::Biblio::RFID501;
17 'reader=s', => \$reader,
20 my $rfid = RFID::Biblio::Readers->new( $reader );
23 my @visible = $rfid->tags;
24 foreach my $tag ( @visible ) {
27 , uc unpack('H2', $rfid->afi($tag))
29 , dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )