antigate client perl Coro anyevent

sub AntigateRec
{
    my ($file, $settings) = @_;
    my ($id, $result,$response,$request, $ac_slot);

    my $filetype = 'jpeg';
    $filetype = 'gif' if($file=~m/GIF/);


    $request = POST "", Content_Type => 'form-data', Agent => "Opera/9.80",
    Content =>
             [
                method       => 'post',
                key          => $ag_key,
                file         => [ undef, ('nyan.'.$filetype), Content => $file ],
                %{{
                    phrase       => 0,
                    regsense     => 0,
                    numeric      => 1,
                    calc         => 0,
                    min_len      => 2,
                    max_len      => 30,
                    is_russian   => 0,
                    max_bid      => 0.001,

                    %{ $settings || {} },
                }}

            ];

    do{
        http_post 'http://69.39.239.48/in.php',
                $request->content,
                timeout => 35,
                headers => {
                        Host => 'antigate.com',
                        'Content-Type' => $request->header('Content-Type')
                    },
            Coro::rouse_cb;

            my ($response) = Coro::rouse_wait;

    if($response=~m/ERROR_KEY_DOES_NOT_EXIST/){ print "Invalid anticaptcha key\n"; Coro::AnyEvent::sleep(30000);;}
    if($response=~m/ERROR_WRONG_USER_KEY/){print "ERROR_WRONG_USER_KEY\n"; sleep;}
    if($response=~m/ERROR_NO_SLOT_AVAILABLE/){print "ERROR_NO_SLOT_AVAILABLE\n"; $ac_slot=1;}
    # warn 1;
    if($response=~m/OK\|(.*?)$/){$id = $1; $ac_slot=0;}elsif(!$ac_slot){ print $response; return;}

    if($ac_slot){Coro::AnyEvent::sleep(2);} #Если слоты заняты, то спим 3 секунды чтоб не грузить сервер запросами

    }while($ac_slot);


    ###Ждем капчу
    while(1)
    {

            http_post 'http://69.39.239.48/res.php?key='.$ag_key.'&action=get&id='.$id,
                $request->content,
                timeout => 35,
                headers => {
                        'Content-Type' => $request->header('Content-Type'),
                        Host => 'antigate.com'
                    },
            Coro::rouse_cb;

            my ($response, $headers) = Coro::rouse_wait;
            # print Dumper [($response, $headers)];

            if($response=~m/ERROR/){print "Error: $response\n"; sleep;}

            if($response=~m/CAPCHA_NOT_READY/)
            {
                print "Error: captcha not ready, sleeping for 3 seconds\n";
                Coro::AnyEvent::sleep(3);
            }
            else
            {

                if($response=~m/OK\|(.*?)$/)
                  {
                      return $1;
                  }
                  else { warn $response; warn 'shit' and return ; }

            }

    }

}