my $request=$ENV{'QUERY_STRING'};
  $request=~/([-\w_]+\.($ext))/g;
  my $file=$1;