if ($option eq "index") {
 open (INDEX, ">filename.html");
  print INDEX "print the HTML here";
 close INDEX;
}
elsif ($option eq "menu") {
 open (MENU, ">filename2.html");
  print MENU "Print the HTML here";
 close MENU;
}