}

if ($opt->{country}) {
$mailtype = lc ($opt->{mailtype} || $::Variable->{USPS_MAILTYPE} || 'package');
unless ($mailtypes{$mailtype}) {
  $error_msg = "unknown mail type '$mailtype'.";
  return;
}
  }

  my $modulo = $opt->{modulo} || $::Variable->{USPS_MODULO};
  if ($modulo and ($modulo < $weight)) {
$m_rep = int $weight / $modulo;
$m_mod = $weight % $modulo;
$weight = $modulo;