-charset => 'utf-8',
-attachment => "bib-$biblionumber.txt"
);
}
elsif ( $format eq 'ris' ) {
print $query->header(
-type => 'text/plain',
-attachment => "bib-$biblionumber.$format"
} else {
binmode STDOUT, ':encoding(UTF-8)';
-