# API de Licenciamento de Software - Exemplo usando Perl Este documento é um subconjunto do [documento da API de Licenciamento de Software](https://easydigitaldownloads.com/docs/software-licensing-api/ "documento da API de Licenciamento de Software"), que lista todos os recursos disponíveis via API. O seguinte é um exemplo de código mostrando como implementar esses recursos com Perl. ### Requisição ``` use strict;<br></br>use warnings;<br></br><br></br>use LWP::UserAgent;<br></br>use CGI;<br></br><br></br>my $edd_action = 'check_license'; # Ações válidas são activate_license, deactivate_license, get_version, check_license<br></br>my $license = '';<br></br>my $item_id = ''; # O ID do Download no seu site<br></br>my $url = 'example.org'; # Se você desativou a verificação de URL nas configurações, não precisa deste valor<br></br><br></br>my $api = 'https://domain.com/';<br></br><br></br>my $ua = LWP::UserAgent->new();<br></br>my $response = $ua->post( $api, { 'edd_action' => $edd_action, 'license' => $license, 'item_id' => $item_id, 'url' => $url } );<br></br>my $content = $response->decoded_content();<br></br><br></br>my $cgi = CGI->new();<br></br># Isso imprime a resposta da API, você precisará validar os dados a partir daí usando os<br></br># cabeçalhos de status HTTP e a resposta `success` da API<br></br>print $content;<br></br> ``` ### Resposta A resposta à consulta acima seria uma string formatada em JSON que se pareceria com isto: ``` { "license": "valid", "item_name": "Nome do Produto EDD", "expires": "2014-10-23 00:00:00", "payment_id": 54224, "customer_name": "John Doe", "customer_email": "john@sample.com" } ```