itc.pl � �? V p #!perl use common::sense; use HTTP::Request::Common; use LWP::UserAgent; use URI; use Compress::Zlib; use Perl6::Say; my $uri = URI->new("https://reportingitc.apple.com/autoingestion.tft"); my $req = POST($uri, { USERNAME => "", PASSWORD => "", VNDNUMBER => "", ## ITC Vender ID TYPEOFREPORT => "Sales", DATETYPE => "Weekly", ## Daily or Weekly REPORTTYPE => "Summary", ## Summary REP