Add POST example and tweak GET example

Author: xdg

eg/get.pl

@@ -17,5 +17,5 @@
     }
 }
 
-print $response->{content} if defined $response->{content};
+print $response->{content} if length $response->{content};
 

eg/post.pl

@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use HTTP::Tiny;
+use URI::Escape qw/uri_escape_utf8/;
+
+my $url = 'http://search.cpan.org/search';
+
+my %form_data = (
+  query => 'DAGOLDEN',
+  mode => 'author',
+);
+
+my @params;
+while( my @pair = each %form_data ) {
+  push @params, join("=", map { uri_escape_utf8($_) } @pair);
+}
+
+my $response = HTTP::Tiny->new->request('POST', $url, {
+  content => join("&", @params),
+  headers => { 'content-type' => 'application/x-www-form-urlencoded' }
+});
+
+print "$response->{status} $response->{reason}\n";
+
+print $response->{content};
+