#!/usr/bin/perl -wT
# FILE:  delete_record.pl
# Example of how to delete an entire record from a database.  Requires two 
#   input parameters:  
#   - name of database
#   - the key value of record to be deleted.

# Use the DBM module.
use DB_File;  

($database, $index) = @ARGV;
my %inventory;

#Open the DBM database file.  
tie %inventory, DB_File, $database || die "Could not
open DBM file $database : $!\n";

#Does the record exist?
die "$O:  Record key $index does not exist in the database.\n" if (! defined
$inventory{$index});

#Delete the record.
delete $inventory{$index};

#Close the dbm databse
untie %inventory;