);
my $buf = '';
close STDERR;
open STDERR, '>', \$buf or die "open(STDERR, '>', \\\$buf): $!";
$arc->$_($_) for qw/info warn err crit/;
);
my $buf = '';
close STDERR;
open STDERR, '>', \$buf or die "open(STDERR, '>', \\\$buf): $!";
$arc->$_($_) for qw/info warn err crit/;