#!/usr/bin/perl -w 

# This script is a minimalistic version of adding a
# database entry to the db. 


use DB_File;                            # load database module

$dbmlocation = '../database/orbit.dbm';

tie %hash, DB_File, $dbmlocation        # open database, to be accessed
    or die "Can't open FILENAME: $!\n";    # through %HASH


$input = '10'; # set string 
$hash{'0'} = $input;                 # put string in database
$hash{'1'} = 'keny';
$hash{'4'} = 'keny';
#delete $hash{'13'};
#delete $hash{'12'};
#delete $hash{'15'};
#delete $hash{'16'};
#delete $hash{'17'};
#delete $hash{'14'};
$hash{'3'} = 'false';
untie %hash;                            # close the database