Index: trunk/ippToPsps/perl/removeFromDatastore.pl
===================================================================
--- trunk/ippToPsps/perl/removeFromDatastore.pl	(revision 28884)
+++ trunk/ippToPsps/perl/removeFromDatastore.pl	(revision 28884)
@@ -0,0 +1,51 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Pod::Usage qw( pod2usage );
+
+use ippToPsps::Datastore;
+
+my $start = undef;
+my $end = undef;
+my $product = undef;
+
+GetOptions( 
+        'start|s=s' => \$start,
+        'end|e=s' => \$end,
+        'product|p=s' => \$product,
+        );
+
+my $quit = 0;
+print "\n*******************************************************************************\n";
+print "* \n";
+if (@ARGV) {
+    $quit=1;
+    print "* UNKNKOWN: option                          @ARGV\n";
+}
+if (!defined $product) {
+    $quit=1;
+    print "* REQUIRED: a datastore product name          -p <name>\n";
+}
+if (!defined $start) {
+    $quit=1;
+    print "* REQUIRED: starting batch number             -s <number>\n";
+}
+if (!defined $end) {
+    $end=99999999999;
+    print "* OPTIONAL: ending batch number               -e <number>    (default=$end)\n";
+}
+print "*\n*******************************************************************************\n";
+
+if ($quit) { exit; }
+
+my $datastore = new ippToPsps::Datastore($product, 0, 0);
+
+my $i;
+
+for ($i=$start; $i<$end+1; $i++) {
+
+    my $name = sprintf("B%08d", $i);
+    $datastore->remove($name);
+}