# How I'da dunnit:
my %param = map {
    $cgi->param($_)
      ? ($_ => encode_entities($cgi->param($_), ''))
      : ()
    } qw(year media genre source title);