use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;
  my $req = POST
    'http://server/path/to/form.handling.script',
    [
      value1 => $value[0],
      value2 => $value[2],
      value3 => $value[3],
      value4 => 'add'
    ];
  my $ua   = LWP::UserAgent->new();
  my $rslt = $ua->request($req)->as_string;