#!/usr/bin/perl

use 5.6.0;

use strict;
use warnings FATAL => 'all';

use DBM::Deep;

(my $version = $INC{'DBM/Deep.pm'} ) =~ s!/.*!!;
$version =~ s/-/./g;

my $db = DBM::Deep->new( "db.$version" );
$db->{foo} = [ 1 .. 3 ];

__END__