#!/usr/bin/perl -w -s
use Biblio::Catalog::BibTeX;
my $file = shift || die "I need a filename...";
my $obj = Biblio::Catalog::BibTeX::loadBibTeX($file);
my @data = map { $obj->toHtml($_); } $obj->getArray();
$css = ($css)?"\n":"";
print "$cssBibliography\n\n\n";
print join("\n",@data);
print "\n";