+sub log_tag {
+ my $tag = shift;
+ return if $saved->{tag} or ! $log;
+ my $hash = $rfid->to_hash( $tag );
+ open(my $fh, '>>', $log) || die "$log: $!";
+ print $fh iso_date,",$tag,", $hash->{content}, "\n";
+ close($fh);
+}
+
+do {
+ my @visible = $rfid->tags(
+ enter => sub {
+ my $tag = shift;
+ print iso_date," reader ", $rfid->from_reader($tag), " enter ", tag($tag);
+ log_tag $tag;
+ },
+ leave => sub {
+ my $tag = shift;
+ print iso_date," leave ", tag($tag);
+ },
+ );
+
+ warn iso_date," visible: ",join(' ',@visible),"\n";
+
+ sleep 1;
+
+} while $loop;