#!/usr/bin/perl -w

use strict;
use DB_File;

my %db;
tie (%db,'DB_File',"mydb.db",O_RDONLY) or die "tie : $!";
untie %db;