Select Code to Download

#!/usr/bin/perl

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