use Getopt::Long;
use lib 'lib';
use Biblio::RFID::Reader;
+use Biblio::RFID::RFID501;
my $loop = 0;
my $reader;
my @visible = $rfid->tags(
enter => sub {
my $tag = shift;
- print iso_date," enter ", tag($tag);
+ print iso_date," reader ", $rfid->from_reader($tag), " enter ", tag($tag);
log_tag $tag;
},
leave => sub {