Leitura de JSON para variável Perl
