switch ( $time ) {
   case "30days" {
      $caption .= "Past 30 Days";
   }
   case "3mons" {
      $caption .= "Past 3 Months";
   }
   case "1yr" {
      $caption .= "Past 1 Year";
   }
   case "all" {
      $caption .= "All Data";
   }
}

##</code><code>##

Unquoted string "case" may clash with future reserved word at ./generate_xml.pl_edit line 615.
String found where operator expected at ./generate_xml.pl_edit line 615, near "case "all""
	(Do you need to predeclare case?)
Unquoted string "case" may clash with future reserved word at ./generate_xml.pl_edit line 618.
String found where operator expected at ./generate_xml.pl_edit line 618, near "case "regular""
	(Do you need to predeclare case?)
syntax error at ./generate_xml.pl_edit line 614, near ") {"
syntax error at ./generate_xml.pl_edit line 618, near "case "regular""