+#!/usr/bin/perl -w
+
+use strict;
+use DBIx::Profile;
+use FS::UID qw( adminsuidsetup );
+use FS::Record qw( qsearch );
+use FS::svc_phone;
+
+my $user = shift or die &usage;
+my $dbh = adminsuidsetup($user);
+
+#my $pkgnum = shift or die &usage;
+#my $svcpart = shift or die &usage;
+
+my @svc_phone = qsearch( {
+ 'table' => 'svc_phone',
+ 'hashref' => { 'phonenum' => { op=>'LIKE', value=>'3125%', } },
+});
+
+my $num = 0;
+
+foreach my $svc_phone ( @svc_phone ) {
+ my $error = $svc_phone->delete;
+ die $error if $error;
+ #last if $num++ > 54;
+}
+
+
+print "\n";
+print $dbh->sprintProfile;
+
+sub usage {
+ die "Usage:\n svc_phone-bulk_delete user\n";
+}
+
+1;