$attach1 = $ENV{REQUEST_URI};
  if($attach1 =~ /\\/){
    my @filename_parts = split /\\/,$attach1;
    my $length = scalar(@filename_parts);
    $attach1 = $filename_parts[--$length];
  }
  if($attach1 =~ /\//){
    my @filename_parts = split /\//,$attach1;
    my $length = scalar(@filename_parts);
    $attach1 = $filename_parts[--$length];
  }

##</code><code>##

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