my ($q, %param, @history);
use CGI;
$q = new CGI;
%param = $q->Vars;
if (defined $param{history}) {
  @history = split(',', $param{history});
}