my $ua = LWP::UserAgent->new();
#...
my $res = $ua->post($addr, \@post_data);