my $hash = Biblio::RFID::RFID501->to_hash( $rfid->blocks($tag) );
open(my $fh, '>>', $log) || die "$log: $!";
print $fh iso_date,",$tag,", $hash->{content}, "\n";
my $hash = Biblio::RFID::RFID501->to_hash( $rfid->blocks($tag) );
open(my $fh, '>>', $log) || die "$log: $!";
print $fh iso_date,",$tag,", $hash->{content}, "\n";