#!/usr/bin/env perl

use strict;
use warnings;

use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new;

$ua->add_handler('request_send', \&pp_dump);

$ua->post("http://google.com");

sub pp_dump {
    print Dumper @_;
}