#!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; my $theme = $q->param('theme') || 'light'; my $bg = ($theme eq 'dark') ? '#222' : '#fff'; my $fg = ($theme eq 'dark') ? '#eee' : '#333'; print $q->header(-type => "text/html", -charset => "UTF-8"); print < Результат
Мій Додаток

Результати

Обрана тема: $theme

Приклади тегів:

Це абзац (<p>).

  • Список (<ul>)
Приклад
Курсив (<em>) та жирний (<strong>).
HTML