Select Code to Download

%output .= (
  'items' => [("title" => "$title")]
);

$output{items} ||= [];
push @{$output{items}}, {title => $title};

print "Content-type: text/html\n\n";  
print $results;