#!/usr/bin/perl

use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $response = $ua->post("http://www.example.com",
    Content => 'var1=foo&var2=bar&var3[id]=foobar'
);