use bytes;
my $orig = join '', map chr($_), 0 .. 255;
$data->column( 'data', $orig );
my $new = $data->column( 'data' );
if ( $orig ne $new )
{
    die "method 'column' is not binary clean!";
}