sub handler {
   # use Apache2::Request; is in startup.pl
   my $r = Apache2::Request->new(shift);
   my $shipaddr2 = $r->param("shipaddr2");
...