next unless $tag eq $sid;
warn "PROGRAM $tag with $content\n";
$rfid->write_blocks( $tag => RFID::Biblio::RFID501->from_hash({ content => $content }) );
next unless $tag eq $sid;
warn "PROGRAM $tag with $content\n";
$rfid->write_blocks( $tag => RFID::Biblio::RFID501->from_hash({ content => $content }) );