#!/usr/bin/perl --

use strict;
use warnings;

use HTTP::Request::Common;

use URI;

{
    my $uri = URI->new('http://localhost/');

    print POST( $uri, ['data' => '<data>'])->as_string;
    
    $uri->query_form('data' => '<data>');
    print GET( $uri )->as_string;

}
__END__
POST http://localhost/
Content-Length: 15
Content-Type: application/x-www-form-urlencoded

data=%3Cdata%3E
GET http://localhost/?data=%3Cdata%3E
[download]