--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/joker-whois	Sun Dec 21 18:11:18 2014 +0100
@@ -0,0 +1,37 @@
+#! /usr/bin/perl
+
+use 5.010;
+use strict;
+use warnings;
+use Smart::Comments;
+use Joker;
+
+my %conf = do 'joker.conf';
+
+my $joker = Joker->new(
+    username => $conf{username},
+    password => $conf{password},
+);
+
+my $x =  $joker->request('query-whois', domain => shift);
+say $x->code, ':', $x->status;
+if ($x->code == 0) {
+    my %result = %{ $x->data };
+    foreach (sort keys %result) {
+	say "$_: $result{$_}";
+    }
+}
+
+exit 0;
+
+### $x
+
+__END__
+
+#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' => $_);
+}