my $ret;
for my $type ( qw{ STRING BOOLEAN INTEGER REAL } )
{
    return $ret
        if defined( $ber->decode( $type => \$ret ));
}
return $ber->buffer();