Select Code to Download

#!/usr/bin/perl

...
my %post = (...);
my $response = $ua->request(POST "http://www.example.com/", [ %post ])
+;
print $response->as_string;