#! perl -w

use strict;
use BibTeX;
use Data::Dumper; 

#my $a = new BibTeX( file => '1.bib' );
my $a = new BibTeX;

select STDERR;
print Dumper($a);
select STDOUT;

$a->author_clean;
$a->title_clean;
$a->expand_abbreviations(
  SV  => "Springer Verlag",
  CUP => "Cambridge University Press",
);			

$a->create_sort_keys;
$a->sort_entries;
$a->create_short_cite_keys;

select STDERR;
print "---------------\n";
print Dumper($a);
select STDOUT;

$a->print_short;

