my $filename;
  if ($param('select') =~ /^(\w+)$/)
  {
    $filename = $1;
  }
  else
  {
    die "Illegal filename!\n";
  }