#!perl 
use strict;
use warnings;
use LWP::Simple;
					  
my $uin     = shift || exit print "\x09 kidala.info ~/Black-list THREW  in the internet (Black List)/ \n\n\x09\x09 usage    :$0 <uin> \n\x09\x09 example  :$0 332065167 \n";
my $res = get("http://$uin.kidala.info/"); exit print "[-] This uin  is not added  to the black-list threw" unless defined $res;
printf "
     .--------------------------------------------------------------.
    |                                                   | _ | O | X |
    .---------------------------------------------------------------'
    |  Nick                   : %35s |
    |  Nik victim             : %35s |
    |  Added                  : %35s |
    |  Added Nick             : %35s |
    |  ID of request          : %35d |
    |  Date of addition       : %35s |
    |  Comments               : %35d |  
    |  More information       : http://$uin.kidala.info/       |
     ---------------------------------------------------------------'
",
$res =~m/Ник:<\/b>(.*?)<br>/g,
$res =~m/Ник потерпевшего:<\/b>(.*?)<br>/g,
$res =~m/Добавил: <a href='(.*?)'>/g,
$res =~m/.html'>(.*?)<\/a>/g,
$res =~m/ID заявки: (\d+)/g,
$res =~m/font color=#FFFF00>(.*?)<\/font>/g,
$res =~m/Комментариев: <font color=#FFFF00>(\d+)<\/font>/g;

C:\>r.pl
         kidala.info ~/Black-list THREW  in the internet (Black List)/

                 usage    :C:\r.pl <uin>
                 example  :C:\r.pl 332065167

C:\>r.pl  332065167

     .--------------------------------------------------------------.
    |                                                   | _ | O | X |
    .---------------------------------------------------------------'
    |  Nick                   :                              Sparky |
    |  Nik victim             :                             Maximus |
    |  Added                  :   http://kidala.info/forum/su1.html |
    |  Added Nick             :                              ononim |
    |  ID of request          :                                  33 |
    |  Date of addition       :                    01.05.2006 17:42 |
    |  Comments               :                                   0 |
    |  More information       : http://332065167.kidala.info/       |
     ---------------------------------------------------------------'

C:\>