#!/bin/perl
use Text::BibTeX;

my $stderr;

my $bib_entry = <<'END';
@BOOK{test1,
  AUTHOR = {Arthur Author},
  TITLE  = {Arranging Arguments},,
  YEAR   = {1935}
}
END

close STDERR;
open STDERR, '>', \$stderr;
print STDERR "manual error\n";

my $entry = new Text::BibTeX::Entry $bib_entry;

print $stderr;

exit 0;