$hash->{content} = $content if defined $content;
my $rfid = Biblio::RFID::Reader->new( $reader );
$Biblio::RFID::debug = $debug;
$hash->{content} = $content if defined $content;
my $rfid = Biblio::RFID::Reader->new( $reader );
$Biblio::RFID::debug = $debug;
my $type = ( grep { $blank->{$_} } keys %$blank )[0];
warn "BLANK $type $tag\n";
$rfid->write_blocks( $tag => Biblio::RFID::RFID501->$type );
my $type = ( grep { $blank->{$_} } keys %$blank )[0];
warn "BLANK $type $tag\n";
$rfid->write_blocks( $tag => Biblio::RFID::RFID501->$type );
warn "PROGRAM $tag with $content\n";
$rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash($hash) );
warn "PROGRAM $tag with $content\n";
$rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash($hash) );