in/perl -w
use strict;
use utf8;
use JSON -support_by_pp;
use LWP::Simple;
use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
use IO::File;
=head1 NAME
ppa_json2ppa_csv.pl
=head1 VERSION
Version 0
.01
=cut
=head1 SYNOPSIS
perl -f ppa_json2ppa_csv.pl URL
DESCRIPTION
This script is able to convert
http://www.acessoainformacao.rs.gov.br/upload/20120515155323ppa_orcamento_2012.zip
into a CSV. T
my $input = "ppa.zip";
my $output = "ppa.json";
unzip $input => $output
or die "unzip failed: $UnzipError\n";
my $fh = IO::File->new();
$fh->open("< ppa.json");
open (my $saida, ">", "taxo.csv") ||