#!/usr/bin/perl

use Database;

my %one, %two;

tie (%one, Database, "One", "hard");

print $one{"One"};

tie (%two, Database, "One", "soft");

print $two{"One"};