Select Code to Download

#!/usr/bin/perl
use strict;
...
my $request  = POST($url, Content => [data=>[@AoH]]);
my $response = $ua->request($request);
print $response->content, "\n";

#!/usr/bin/perl -Tw

...
       print "key: $key, value: $href->{$key}\n";
   }
}