$paramstr = '\?'.$ENV{QUERY_STRING};
  $attach1 =~ s/$paramstr//;