...
   my $shipaddr2 = $r->param("shipaddr2");
   print STDERR "$shipaddr2\n";