gdbm.p6

#!/usr/bin/env perl6

use v6;
use lib '.';

use DBM::GDBM;

my $gdbm = DBM::GDBM.new('foo.gdbm', 0, 0o666);

my $value = $gdbm.fetch('foo');
$value.say;
$value.perl.say;