--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/joker2	Fri Aug 08 16:35:25 2014 +0200
@@ -0,0 +1,24 @@
+#! /usr/bin/perl
+
+use 5.010;
+use strict;
+use warnings;
+use Smart::Comments;
+
+use lib 'lib';
+use Joker;
+
+my %conf = do 'joker.conf';
+
+my $joker = Joker->new(
+    username => $conf{username},
+    password => $conf{password},
+);
+
+#say $joker->request('query-domain-list');
+my @results = map { (split)[1] } grep { /^\d/ } split /\r?\n/,
+  $joker->request('result-list', status => 'nack');
+
+foreach (@results) {    ### deleting: [===|    ] [%]
+    $joker->request('result-delete', 'svtrid' => $_);
+}