#!/usr/bin/perl
-
+use strict;
use Data::Dumper;
use Storable qw(thaw);
-
+use Getopt::Std;
+use vars qw($opt_d);
+getopts("d:");
+my %x;
dbmopen %x,$ARGV[0],0644;
+if ($opt_d) {
+ delete $x{$opt_d};
+}
+
while (my ($key,$val) = each %x) {
my $data;
eval {
}
print $data,"\n";
}
+
+dbmclose %x;