Tie::LevelDB and binary files

gistfile1.pl

use File::Slurp;
use Tie::LevelDB;

my $file_name = shift; # give the script an image file argument - preferably a PNG.

my $db = new Tie::LevelDB::DB("db/");
my $buffer;

read_file( $file_name, binmode => ':raw', buf_ref => \$buffer );

write_file( 'bin_out.png', {binmode => ':raw'}, $buffer );

$db->Put($file_name, $buffer);

my $out_buffer = $db->Get($file_name);
write_file( 'bin_out2.png', {binmode => ':raw'}, $out_buffer );

# bin_out2.png is unfortunately much shorter than bin_out.png :-(